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Abstract 


The  MAD/I  language  is  a  procedure-oriented  algebraic 
language  which  is  a  descendant  of  ALGOL  €0  and  7090  MAD, 
similar  in  power  and  scope  to  PL/I .  The  MAD/I  compiler 
is  implemented  using  the  MAD/I  facility,  a  flexible  trans¬ 
lator-building  system  whose  dynamic  nature  allows  compilers 
to  be  extended  during  the  compilation  process.  This  paper 
demonstrates  the  extension  of  MAD/I  to  include  several 
graphics-oriented  statements  and  operators  through  a  lucid 
example . 
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1.  INTRODUCTION 


The  MAD/I  project  of  the  University  of  Michigan  has 
designed  and  implemented  a  flexible  translator-building 
system  called  the  MAD/I  facility.  The  facility  provides 
services  to  aid  in  the  lexical  and  syntactic  scanning  [3] 
of  the  program,  storage  allocation,  and  object-code  genera¬ 
tion.  A  compiler  is  written  in  the  facility  as  a  set  of 
procedures,  called  a  macro,  to  which  is  control  passed  at 
various  times  by  the  syntactic  scanner  and  by  the  contents 
of  the  intermediate  storage  of  tne  partially  compiled 
programs.  New  macros  can  be  redefined  while  a  compiler 
is  executing,  thus  making  extensions  to  the  compiler  (and 
hence  to  the  language)  possible. 

A  compiler,  called  the  MAD/I  compiler,  has  been 
implemented  using  the  MAD/I  facility.  The  language  accepted 
by  the  MAD/I  compiler  is  called  the  MAD/I  language  [1]  .  The 
MAD/I  language  is  a  procedure-oriented  algebraic  language 
which  is  a  descendant  of  ALGOL  60  and  7090  MAD,  similar  in 
power  and  scope  to  PL/I .  Because  the  MAD/I  compiler  is 
written  in  the  MAD/I  facility,  there  is  a  great  potential 
for  extensibility  features  within  the  MAD/I  language.  To 
date,  no  extension  facilities  have  been  designed  for  the 
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MAD/I  language;  that  is  properly  a  goal  of  further  research. 

This  report  presents  an  example  definitional  facility 
in  the  MAD/I  language.  A  simple  list-processing  program  is 
written  in  the  MAD/I  language  as  extended  to  include  three 
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new  nodes,  three  new  statements,  and  eight  new  operators. 
These  extensions  are  written  using  the  macro  language  of 
the  MAD/I  facility  and  two  experimental  definitional  state¬ 
ments.  These  definitional  statements,  or  similar  ones 
determined  to  be  more  appropriate,  could  easily  be  incorp¬ 
orated  as  a  part  of  the  MAD/I  language.  For  the  moment, 
they  also  are  defined  at  compile-time. 

The  remainder  of  this  report  explains  in  detail  the 
simple  program  and  the  code  necessary  to  define  the  language 
extensions.  This  explanation  references  the  computer  output 
which  appears  at  the  end  of  the  report.  This  output  con¬ 
sists  of  six  parts: 

(1)  a  listing  of  the  contents  of  the  file  SKETCH 
which  is  the  sample  MAD/I  program, 

(2)  a  listing  of  the  contents  of  the  DISPLAYDEF 
which  defines  the  extensions  fo  the  MAD/I 
language , 

(3)  a  listing  of  the  contents  of  the  file  DEFFACILITY 
which  defines  the  two  experimental  statements, 

(4)  a  listing  of  the  contents  of  the  file  -DATA  which 
contains  the  data  used  in  the  run  of  Step  (6) , 

(5)  the  compilation  of  the  MAD/I  program,  and 

(6)  the  run  of  the  generated  object  program  using  the 
data  cl  Step  (4) . 

The  object-code  listing  of  the  compilation  has  been  removed 
to  reduce  the  bulk  of  the  report. 
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2.  SKETCH 

The  file  SKETCH  contains  the  sample  MAD/I  program. 

This  program  maintains  a  simple  list  structure  representing 

points,  lines,  and  collections  of  points  called  pictures. 

The  list  structure  can  be  manipulated  or  printed  through 

several  commands  which  are  recognized  by  the  program. 

These  commands  are: 

POINT  which  adds  a  point  to  the  list  structure.  The 
user  is  prompted  for  the  x  and  y  coordinates  of 
the  point.  The  point  is  assigned  an  internal 
display  number  which  is  used  to  reference  the 
point  in  other  commands. 

LINE  which  adds  a  line  to  the  list  structure.  The 

user  is  prompted  for  the  internal  display  numbers 
of  the  two  endpoints  of  the  line.  The  line  is 
defined  in  terms  of  its  endpoints  and  will  be 
moved  appropriately  if  its  endpoints  are  moved. 

PICTURE  which  groups  several  points  together  into  a 
collection  called  a  picture.  The  user  is 
prompted  for  the  internal  display  numbers  of  the 
points  in  the  picture.  Whenever  one  point  of 
a  picture  if;  translated,  all  the  points  in  the 
picture  are  translated. 

MOVE  which  moves  a  point  to  new  x  and  y  coordinates . 

The  user  is  prompted  for  the  display  number  of 
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the  point  and  its  new  x  and  y  coordinates.  If 
the  point  is  in  a  picture,  all  other  points  in 
the  picture  are  also  translated  by  the  same 
amount. 

DISPLAY  which  prints  a  display  of  the  current  list 
structure. 

This  program  is  oriented  to  standard  typewriter 
terminals,  such  as  teletypes.  It  could  easily  be  modi¬ 
fied  to  interface  to  a  remote  graphics  terminal  using  the 
display  subroutines  developed  as  a  part  of  the  CONCOtyP 
Project  [2]  . 

Line  1  of  SKETCH  simply  begins  a  procedure  namad  SKETCH. 

Line  3  of  SKETCH  includes  the  contents  of  the  file 
DISPLAYDEF  which  defines  the  new  statements,  modes, 
and  operators  which  will  be  used  in  this  program. 

The  contents  of  DISPLAYDEF  will  be  described  in 
the  next  section. 

Lines  5  through  13  declare  the  modes  of  variables 
used  in  the  program.  Note  that  'POINT*,  'LINE1, 
and  'PICTURE'  are  used  as  modes  in  declarations. 

These  have  been  defined  as  described  for  line  3 
above.  Line  5  causes  all  variables  which  are  not 
explicitly  declared  to  receive  the  default  mode 
'INTEGER' . 

Line  15  presets  the  number  of  pictures  to  zero. 
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Lines  18  and  19  prompt  the  user  for  the  next  command 
from  his  terminal.  The  first  four  characters  of 
the  command  are  stored  in  the  variable  COMMAND. 

Lines  21  through  120  form  a  compound  'IF*  statement. 
The  subsection  of  this  statement  which  corresponds 
to  the  command  entered  is  given  control. 

Lines  22  through  29  are  invoked  by  the  POINT  command. 
Note  that  line  25  uses  the  newly  defined  statement 
'CREATE  POINT*  to  create  a  point  having  the  values 
of  X  and  Y  as  its  coordinates.  X  and  Y,  although 
shown  here  as  simple  variables ,  can  be  general 
expressions.  The  operator  .DISPN.,  which  accesses 
the  internal  display  number  from  a  point,  is  used 
in  line  26  to  print  the  display  number  to  the  user. 

Lines  32  through  39  are  invoked  by  the  LINE  command. 
The  operator  .ADROF.  used  on  line  34  converts  an 
internal  display  number  to  a  'POINTER'  to  the 
corresponding  list  structure  item.  The  operator 
.EVAL.  also  used  on  line  34  sets  the  storage  alio- 
cation  of  a  based  variable  to  the  value  of  a 
variable  of  'POINTER'  mode.  In  this  case  PI  and 
P2  are  allocated  to  the  list  structure  items 
corresponding  to  the  two  endpoints.  .EVAL.  is 
a  built-in  MAD/I  operator  whose  name  has  since 
been  changed  to  .ALLOC..  The  operator  .POINT,  used 
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in  line  35  returns  a  value  of  'TRUE'  if  its 
operand  is  a  list  structure  item  corresponding  to 
a  point;  'FALSE'  otherwise.  Note  that  line  36 
uses  the  new  statement  'CREATE  LINE'  to  create  the 
line  whose  endpoints  are  PI  and  P2. 

Lines  42  through  57  are  invoked  by  the  PICTURE  command. 
PICTURE  is  an  array  of  up  to  100  pictures,  each 
element  being  the  head  of  a  linked  ring  of  points 
in  the  picture.  PICTUREN  is  the  number  of  pictures 
allocated  thus  far.  Lines  43  through  47  increment 
the  number  of  pictures  thus  far,  test  to  see  that 
less  than  100  pictures  have  been  formed,  and  initialize 
the  current  picture  to  the  empty  set.  The  O.AS. 
('POINTER')  of  line  47  is  the  empty  picture  constant 
and  would  better  have  been  written  O.AS .( 'PICTURE' ) . 

As  we  will  see  later,  'PICTURE'  has  been  defined 
as  a  synonym  for  'POINTER'  which  explains  why 
the  former  case  works.  Lines  48  through  55  are 
executed  once  for  each  point  in  the  picture.  Lines 
50  and  51  access  the  list  structure  item  corresponding 
tp  the  next  point  to  be  coded  to  the  picture  and  test 
that  is  a  point.  Lines  52  through  54  insert  the 
point  into  the  picture  using  the  'CONNECT'  statement. 

A  restriction  in  the  implementation  of  cur  expedmental 
define  statement  facility  prevents  us  from  rewriting 
these  three  statements  as  the  one  statement 
'CONNECT'  PI  'TO'  PICTURE (PICTUREN) 
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Lines  60  through  75  are  invoked  by  the  MOVE  command. 

Line  64  computes  the  difference  between  the  new 
coordinates  of  the  point  and  the  old  coordinates  of 
the  point.  The  two  operators  .XOF.  and  .YOF. 
access  the  x  and  y  coordinates  respectively  of 
a  point.  Line  65  modifies  the  coordinates  of  the 
point  to  their  new  values.  Note  that  .XOF.  and 
.YOF.  can  be  used  on  the  left-hand  side  of  an 
assignment  as  they  return  a  reference.  Lines  66 
and  67  test  if  the  point  is  a  member  of  a  picture. 

If  the  point  is  in  a  picture,  line  68  accesses 
the  next  point  in  the  picture,  and  lines  69  through 
73  are  executed  for  each  point  in  the  picture  until 
we  return  to  the  original  point.  The  .NEXT",  operator 
returns  a  'POINTER'  result  which  points  to  the  list 
structure  item  representing  the  next  point  in  the 
same  picture  as  its  operand. 

Lines  77  through  116  are  invoked  by  the  DISPLAY  command. 
This  code  runs  through  the  entire  list  structure 
and  generates  points  and  lines  as  sets  of  asterisks 
in  the  array  DISPLAY.  This  array  is  then  printed  to 
give  a  visual  depiction  of  the  display  on  a  type¬ 
writer-like  terminal .  Note  that  the  variable  HEAD 
referenced  in  line  83  is  a  'POINTER'  to  the  first 
item  in  the  list-structure.  The  operator  .HEAD, 
referenced  in  line  109  returns  a  'POINTER'  to  the 


list  structure  element  which  follows  its  operand. 

This  operator  is  used  to  traverse  the  list  structure. 
Line  119  is  invoked  if  the  command  was  not  recognizable 
based  on  its  first  four  characters. 

Line  122  transfers  control  back  to  line  18  where  the 
user  is  prompted  for  the  next  command. 

The  remainder  of  the  program  consists  of  two  small 
procedures  for  computing  the  minimum  and  maximum  of  two 


values . 
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3 .  DISPLAYDEF 

The  file  DISPLAYDEF  contains  the  definitions  for  the 
extensions  to  the  MAD/I  language  used  in  the  preceding 
program.  In  actual  practice^  packages  of  definitions  such 
as  this  would  be  written  and  used  in  programs  much  as 
subroutines  are  written  and  used  in  programs  at  present. 
Generally  useful  definitional  packages  would  be  provided 
by  system  programmers  for  general  use  just  as  subroutine 
libraries  are  now  provided. 

Lines  18  through  20  define  the  mode  'POINT*  which  is 
simply  a  synonym  for  a  based  component  structure. 
The  components  are  used  as  described  in  lines  11 
through  16. 

Lines  35  through  37  define  the  mode  'LINE'  which  is 
simply  a  synonym  for  a  based  component  structure. 
The  components  are  used  as  described  in  lines 
28  through  33. 

Line  43  defines  the  new  mode  'PICTURE'  which  is 
simply  a  synonym  for  'POINTER'. 

Lines  48  through  52  declare  and  preset  the  variables 
which  are  used  by  the  various  statements  and 
operators  of  the  definitional  package.  , 

f 

Line  56  includes  the  contents  of  the  file  DEFFACILITY 
which  defines  the  two  experimental  definitional 
statements  which  are  used  below.  The  contents  of 
DEFFACILITY  will  be  described  in  the  next  section. 


- - 
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Lines  64  through  74  define  the  statement  'CREATE 
POINT'  using  the  experimental  definitional 
statement  'DEFINE  STATEMENT'.  The  'DEFINE 
STATEMENT'  facility  allows  a  new  statement  to  be 
defined  in  terms  of  other  MAD/I  statements.  The 
'CREATE  POINT'  statement  consists  of  the  keyword 
'CREATE  POINT'  followed  by  three  expressions  which 
correspond  to<  the  identifiers  POINT,  X,  and  Y. 

These  three  expressions  will  be  evaluated.  Then 
the  MAD/I  statements  in  the  definition  will  be 
executed,  with  the  results  of  the  three  expressions 
being  substituted  for  each  occurrence  of  POINT, 

X,  and  Y.  Line  65  allocates  a  block  of  storage 
to  the  expression  corresponding  to  POINT,  which 
must  be  a  reference  to  a  variable  of  'POINT'  mode. 
Line  66  and  68  insert  this  new  point  into  the 
chain  of  all  items  in  the  list  structure.  Line  68 
initializes  the  point  as  not  being  an  element  of 
any  picture.  Lines  69  and  70  assign  the  next 
internal  display  number  to  this  point.  In  an 
application  using  a  remote  display  this  would  be 
an  identification  number  for  the  element  in  the 
remote  display  program  so  that  light-pen  detects 
could  be  mapped  back  to  the  data  structure  in  the 
machine  in  which  this  program  is  running.  Line  71 
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sets  the  display  item  type  to  1,  indicating  that 
this  is  a  point.  Lines  72  and  73  set  the  x  and  y 
coordinates  of  the  point. 

Lines  82  through  92  define  the  statement  'CREATE 
LINE'.  This  definition  is  similar  to  that  used 
to  define  the  'CREATE  POINT'  statement  above  and 
won't  be  discussed  further. 

Line  100  defines  the  keyword  'TO'  to  be  syntactically 
equivalent  to  the  comma  (,).  This  will  allow  us 
to  write  'CONNECT'  A  'TO'  B  rather  than  'CONNECT' 
A,B .  Note  that  this  definition  is  done  using  the 
experimental  'DECLARE  SYNTACTIC  CLASS'  statement. 

Lines  101  through  111  define  the  'CONNECT'  statement. 
This  definition  is  also  made  using  the  experimental 
definitional  statement  'BEFINE  STATEMENT'.  Lines 
104  and  105  are  executed  if  the  second  point  is 
already  a  member  of  a  picture.  In  this  case  the 
new  point  is  inserted  into  the  existing  ring. 

Lines  116  through  124  define  the  operator  .POINT, 
which  returns  'TRUE'  if  its  operand  is  a  point, 
'FALSE'  otherwise.  This  definition  is  written 
using  the  roacfo  language  of  the  MAD/I  facility  and 
requires  some  explanation .  If  .POINT.  A  is  written 
we  really  want  to  transform  that  into  A(4)«l,  a 
test  of  whether  the  type  canponent  of  A  is  equal 
to  1.  Now  .POINT.  A  will  be  converted  by  the 
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syntactic  scanner  into  the  triple: 

•POINT . , %TMP , A 

whpre  %TMP  is  an  internally  generated  temporary 
symbol  which  represents  the  result  of  the  operation. 

Now  A(4) =1  would  be  converted  by  the  syntactic 
scanner  into  the  two  triples: 

•TAG. , %TMP1,A,4 

* , %TMP  2 , %TMP1 , 1 

where  %TMP2  is  the  result  of  the  expression.  Now, 

if  we  define  a  macro  whose  name  is  POINT.,  it 

will  be  called  by  the  syntactic  scanner  with  two  operands, 

the  temporary  assigned  and  the  operand.  This 

mapro  can  in  turn  generate  the  two  triples  that 

A(4)*l  would  have  generated.  Line  11$  declares 

.POINT,  to  be  syntactically  equivalent  to 

.ABS . ;  that  is ,  a  unary  operator  with  the  same 

left  and  right  precedence  values  as  .ABS..  Lipe 

117  declares  to  the  compiler  that  what  follows 

are  to  be  considered  as  statements  directed  to 

the  MAP/I  facility.  Lines  118  through  123  define 

th<e  macro  whose  name  is  .POINT,  and  whose  two 

operands  (parameters)  are  given  the  names  T  and  B. 

All  identifiers  in  a  macro  definition,  unless  pre¬ 
ceded  by  a  %,  are  different  identifiers  them  those 
of  the  same  name  in  the  MAO/I  program.  Likewise, 
all  constants  referenced  in  a  macro  definition,  unless 
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preceded  by  'LOCAL  LITERAL' ,  are  self-defining 
constants  rather  than  literal  constants  within  the 
MAO/I  program.  Line  119  declares  U  to  be  a  local 
symbol  within  this  macro.  This  is  roughly  equiva¬ 
lent  to  automatic  variables  in  higher-level  languages. 
Line  120  calls  the  macro  TEMPORARY  which  assigns 
a  temporary  symbol  and  causes  U  to  become  a  synonym 
for  the  temporary.  This  temporary  will  be  used  as 
the  result  of  the  ■  operator.  The  macro  TEMPORARY 
is  defined  in  the  next  section.  Line  121  generates 
the  triple 

.TAG.,  U,B,4 

where  U  is  the  temporary  result  and  B  is  the 
operand  of  the  .POINT,  operator.  The  'LOCAL  LITERAL' 
keyword  is  required  so  that  the  symbol  4  represents 
the  MAD/I  constant  value  4  rather  than  a  self¬ 
defining  term  4  in  the  MAD/I  facility.  Likewise 
line  122  generates  the  triple 
«,T,U,1 

where  T  is  the  temporary  result  of  the  .POINT, 
operator  which  has  been  passed  as  a  parameter  and 
U  is  the  result  of  the  .TAG.  operation  generated 
by  the  preceding  line.  The  LN  is  necessary  pre¬ 
ceding  the  to  indicate  that  this  is  the  MAO/I 
operator  rather  than  the  MAO/I  facility 
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operator  These  two  triples  generated  are  the 

two  we  have  previously  discussed  as  being  equivalent 
to  A(4)«*l.  Line  124  exits  from  the  MAD/I  facility. 
Further  lines  are  interpreted  as  being  a  part  of 
the  MAD/I  program  being  compiled. 

Lines  129  through  186  define  the  operators  .XOF.,  .YOF. , 
.NEXT. , .DISPN. , .ENDA. , .ENDB. ,  and  .HEAD,  in  a 
manner  similar  to  the  definition  of  .POINT,  discussed 
above.  In  each  case  the  expression  involving 
the  operator,  say  .XOF. A,  is  to  be  mapped  into  an 
instance  of  subscription  such  as  A (5) .  The 
operators  differ  only  in  the  value  of  the  subscript 
used.  In  each  case  the  triple  resulting  from  the 
syntactic  scanning  of  the  former  case, 

.XOF.  ,%TMP,A 

is  translated  into  the  triple  which  would  result 
from  the  syntactic  scanning  of  the  latter  case, 

.TAG. ,%TMP,A,5 

In  each  case  the  operator  is  declared  to  be 
syntactically  equivalent  to  .ABS.  through  the 
'DECLARE  SYNTACTIC  CLASS'  statement  and  is  semantically 
defined  through  a  very  simple  macro  which  generates 
the  corresponding  .TAG.  triple. 

Lines  196  through  214  define  the  operator  .ADR07.  which 
returns  the  .POINTER'  to  the  list-structure  element 


which  has  been  assigned  the  value  of  its  operand  as  its 
internal  display  number.  The  .ADROF.  operator  could  be 
represented  in  MAD/I  by  lines  190  through  194,  However, 
we  have  not  yet  implemented  a  statement  which  allows 
operators  to  be  defined  in  terms  of  MAD/I  statements. 
Instead,  we  have  implemented  the  .ADROF.  operator  as  a 
macro  which  generates  the  same  triples  as  would  be  generated 
by  the  MAD/I  statements  shown.  Line  199  defines  B1  and 
B2  to  be  local  symbols.  These  will  be  used  for  the  labels 
required.  Lines  200  and  201  assign  temporaries  to  T1 
through  T5.  Line  202  calls  the  FLAD  macro  which  assigns 
two  floating  addresses  and  makes  B1  and  B2  synonyms  for 
these  two  floating  addresses.  The  macro  is  defined  in 
the  next  section.  Line  203  is  equivalent  to  the  MAD/I 
statement  of  line  190.  Lines  204  through  207  are  equiva¬ 
lent  to  the  MAD/I  statement  of  line  191.  Line  204 
allocates  the  floating  address  B1  to  the  current  value 
of  the  instruction  location  counter.  Lines  205  and  206 
compute  the  Boolean  expression 
.DISPN.  QQSV  -  A 

while  line  207  transfers  to  B2  if  the  expression  result 
is  'TRUE'.  Lines  208  and  209  are  equivalent  to  the  MAD/I 
statement  of  line  192.  Line  210  is  equivalent  to  the 
MAD/1  statement  of  line  193.  Lines  211  and  212  are 
equivalent  to  the  intended  effect  of  the  MAD/I  statement 
of  line  194  which  is  to  return  a  pointer  to  QQSV  as  the 
result  of  the  operator.  Line  211  allocates  the  floating 


address  B2  to  the  current  value  of  the  Instruction  loca¬ 
tion  counter  while  line  212  computes  the  pointer  to  QQSV 
assigning  the  result  to  T,  the  temporary  assigned  by  the 
syntactic  scanner  as  the  result  of  .ADROF.. 
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4 .  DEFFACILITY 

The  file  DEFFACILITY  contains  the  definitions  of  the 
•DECLARE  SYNTACTIC  CLASS'  and  'DEFINE  STATEMENT'  statements 
and  the  FLAD  and  TEMPORARY  macros.  Other  macros  have  also 
been  defined  or  redefined  as  required  to  implement  the 
above.  The  macros  used  to  define  these  statements  are 
much  more  complicated  than  the  macros  used  in  the  preceding 
section  and  require  a  detailed  knowledge  of  the  MAD/I 
facility  and  MAD/I  compiler  in  order  to  implement  them  success¬ 
fully.  We  stress  that  users  of  MAD/I  will  not  be  required 
to  learn  this  detail,  as  appropriate  higher- level  definitional 
statements  such  as  'DECLARE  STATEMENT'  will  be  provided 
for  them;  only  the  system  programmer  assigned  to  MAD/I 
need  to  know  these  details. 

Lines  10  through  27  define  the  'DECLARE  SYNTACTIC 

CLASS'  statement.  Line  11  causes  'DECLARE  SYNTACTIC 
CLASS'  to  be  considered  syntactically  a  keyword 
which  begins  a  simple  statement.  The  macro  named 
'DECLARE  SYNTACTIC  CLASS'  will  be  called  by  the 
syntactic  scanner  whenever  the  keyword  is  encountered 
in  the  MAD/I  program.  Lines  12  through  26  define 
the  macro  'DECLARE  SYNTACTIC  CLASS'.  Lines  14 
and  15  scan  off  the  next  symbol  and  insert  a  pointer 
to  its  symbol  table  entry  into  the  local  symbol  A. 

Lines  16  through  19  seem  off  the  next  symbol  and 


\ 
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verify  that  it  is  'SAME  AS'.  Line  20  scans  off 
the  next  symbol  which  is  the  one  having  the  desired 
syntactic  qualities.  Lines  21  through  24  set 
the  syntactic  attributes  in  the  symbol  table 
entry  of  the  symbol  being  declared  to  the  same 
values  as  on  the  symbol  already  having  the  desired 
syntactic  class.  Line  25  scans  off  the  statement 
terminator  so  that  we  are  ready  to  return  to  £be 
syntactic  scanner. 

Lines  49  through  100  define  the  statement  'DEFINE 
STATEMENT" .  Lines  52  through  99  define  the  macro 
'DEFINE  STATEMENT'  which  is  called  by  the  syntactic 
scanner  whenever  the  keyword  'DEFINE  STATEMENT' 
is  encountered.  This  macro  scans  the  entire  'DEFINE 
STATEMENT'  statement  scope,  saving  its  contents 
as  a  list  of  symbol  table  pointers.  It  then 
creates  a  macro  (lines  81  through  97  )  which 
has  as  its  name  the  keyword  identifying  the  state¬ 
ment  being  defined.  This  new  macro  is  called  by 
ttye  syntactic  scanner  whenever  its  namesake  key¬ 
word  is  found  in  the  input  stream.  It  then  will 
call  the  syntactic  scanner  once  for  each  expression 
which  is  a  part  of  the  statement,  modify  the  lexical 
scanner  (GETDSK)  to  return  the  symbol  table  pqinters 
on  the  list  formed  above  before  continuing  with 
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the  standard  input  text,  and  call  the  syntactic 
scanner  asking  it  to  scan  the  scope  of  a  compound 
statement.  This  scope,  of  course,  consists  of 
the  statements  which  define  the  new  statement 
sased  on  the  list  given  to  the  lexical  scanner. 

Lines  108  through  126  define  a  macro  named  GETDSX. 

This  macro  will  be  called  instead  of  the  pseudo¬ 
operation  GETDSX,  which  itself  is  the  entry-point 
tc  the  lexical  scanner.  This  new  macro  will  nor¬ 
mally  simply  call  the  pseudo-operation  GETDSX 
to  lexically  scan  for  the  next  symbol  in  the  input 
stream.  However,  if  it  is  passed  a  list  of  symbol 
table  pointers  via  the  global  symbol  GTDSXLIST 
from  a  macro  defining  a  new  statement,  it  will 
return  the  symbols  from  the  list  until  the  list  is 
exhausted. 

Lines  131  through  144  define  the  macro  FLAD  which 
generates  new  floating  address  symbols .  This 
macro  is  referenced  by  the  .ADROF.  macro  from 
the  preceding  section. 

Lines  148  through  161  define  the  macro  TEMPORARY  which 
assigns  new  temporary  result  symbols.  Thi.3  macro 
is  referenced  by  several  macros  in  the  preceding 
section . 

Lines  167  through  223  re-define  the  macros  GETTEMP 

and  FREETEMP  to  remove  deficiencies  in  their  original 


20 


implementation  in  the  NAD/I  compiler.  These 
macros  have  since  been  changed  in  the  compiler 
sq  that  this  update  is  no  longer  necessary. 


T 
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5.  -DATA 

The  file  -DATA  contains  the  data  presented  to  the 
MAD/I  program  in  the  run  of  Section  7.  The  program  is 
intended  to  be  used  from  a  terminal  on  a  conversational 
manner.  Running  the  program  in  batch  has  required  us  to 
anticipate  the  requests  for  input  and  the  assignment  of 
internal  display  numbers .  The  reader  will  find  it  helpful 
to  look  at  the  printed  output  from  the  run  with  this  data 
(Section  7)  while  reading  Section  5. 

Line  1  requests  a  display  of  the  current  contents  of 
the  list-structure.  Since  the  list-structure  is 
empty  the  comment  "NOTHING  TO  DISPLAY."  is 
printed. 

Lines  2  through  9  define  four  points  having  coordinates 
(10,10) ,(10,40)  , (40 ,10)  and  (40,40).  These  points 
are  assigned  internal  display  numbers  1,2,3,  and 
4,  respectively.  Line  10  requests  the  current 
list-structure  to  be  displayed,  resulting  in  the 
first  graph  showing  the  four  points. 

Lines  11  through  18  connect  the  four  points  with 
lines  forming  a  square.  Line  19  requests  the 
current  list-structure  to  be  displayed,  resulting 
in  the  second  graph  showing  the  square . (This 
looks  like  a  rectangle  because  the  horizontal  scale 
is  10  characters/inch  while  the  vertical  scale 
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is  6  characters/inch  (before  reduction) ) . 

Lines  20  and  21  move  the  first  point  from  its  original 
position  of  (10,10)  to  the  new  position  (15,20). 
Since  this  point  is  not  a  member  of  any  picture, 
it  is  the  only  point  moved.  Line  22  displays  the 
third  graph  showing  the  point  moved  to  its  new 
location . 

Lines  23  through  28  mark  the  four  points  as  members 
of  the  same  picture.  Lines  29  and  30  move  the 
first  point  from  its  current  position  of  (15,20) 
to  the  new  position  (20,20).  The  second,  third, 
and  fourth  points  are  also  translated  horizontally 
by  five  raster  units  because  they  are  members  of 
the  same  picture  as  the  first  point.  Line  31 
causes  the  display  of  the  fourth  graph  which 
shows  the  results  of  this  translation. 


f 
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6.  COMPILATION  OF  THE  MAD/I  PROGRAM 
The  fifth  listing  is  the  printed  output  resulting 
from  the  compilation  of  the  MAD/I  program.  This  output 
begins  with  a  listing  of  the  source  program.  Notice  that 
the  contents  of  the  files  DISPLAYDEF  and  DEFFACILITY  are 
included  at  the  points  where  the  'INCLUDE'  statements  are 
encountered.  Following  the  source  program  listing  is  the 
output  of  the  storage  allocation  phase,  giving  the  storage 
allocated  to  each  variable  and  constant  in  the  program. 

Following  that  is  a  dictionary  giving  the  attributes  of 

I 

each  variable  and  constant.  Following  that  are  the 
external  symbol  dictionary,  relocation  dictionary,  and 
statistics  for  the  compilation.  The  object  listing  has 

i 

been  left  out  because  of  its  size  (about  40  printed  pages)  . 
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7.  RUN  OF  THE  MAD/I  PROGRAM 
The  last  listing  Is  the  printed  output  resulting 
from  a  run  of  the  generated  object  module.  This  listing 
consists  of  the  loading  map  followed  by  the  printed  output 
from  the  program.  See  Section  5  for  an  annotation  of  the 
output  from  the  run. 
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SKETCH; 
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Appendix  A.  Contents  of  File  SKETCH 

•PROCEDURE*  SKETCH.; 

' INCLUDE*  "CISPLAYOEF" 

•DECLARE*  • NORMAL  MOOE*  ‘INTEGER*: 

•OtCLAHE*  COMMAND  *  CHAR  ACT EK • ( 4 ) ; 

•decuSe**  ,CHA*Acrfc**‘“‘ 

' Or CLAKE*  LINE  ‘LINE*;  * 

•SpccSSir  ^'"oo*  •picT“«f‘ 

•DLCLARfc*  DU2  ‘POINTER*; 

•  UtCL ARC  '  (  M  •  Ml  (  M2)  ‘FLOATING*  J 

•PRESET*  picturen  :■  0; 

.'"JiJ**  '  '"0ENTfc*  A  CCMMANO  PLEASE.  **"; 

READ*  ,  "C 4 .4 **■  t  C0MMAN0  5 

•IF*  COMMANO  -  **POIN**J 

*N“  *  C0UI,0,,,,Tts . 

•IF*  1  <«  X  6  50  >«’x  t  I  <»  Y  t  50  >-  V 
•CREATE  POINT*  POINT.X.Y;*  * 

..LSE.T"''  '  ASS,UNEU  DISPLAY  number*. HI4*-,  .OISPI 

*ENO*;%<iITfc'  '  *>°,NT  1S  UUTSIOt  PASTER  RANGE. **"; 

•OR  IF*  COMMAND  *  "LINE**; 

•S?iJ*'.'-2i*^Tx%;IS,,LAV  ^  ^>-PJINTS:**«; 

•IF*EVJfii*NT*AC2?,:*  *1  P2  *£VAL*  ‘AOMUF.  V; 

IF  .POINT.  PI  t  .POINT.  P2 ; 

•ELSE*;MEATE  LlNt'  LIN£*PI*P*I 

•END*  !**A  1  T£'  *  "•  THOSE  ARE  NCT  POINTS.**"; 

•OR  IF*  COMMANO  *  "PICT"; 

;SfS«,.:,.jS5fKfr*’  ’,u"““s  fuk  “-l 

'IF*  PICTUREN  >  IOC; 

*fcLSE*TITt'  '  TC°  MANY  P,CTURES.**"; 

•ReIo2E!P*mI^E;!  5“  °  -AS‘  <  *  PC  INTER*  I ; 

*  IF •  X^s  0 ; 

PI  .EVAL.  .ADRUF.  x; 

•IF*  ->.P0  INT  •  PI,  •  GO  TC*  NOTPOINT; 

CJ2  :«  PICTURE! PICTUREN) ; 

'CCNNECT*  PI  *TO*  0U2; 

PICT  UR  t(FICT  OREM  :=  U02; 

•GO  TO*  PICTA; 

•END' 

•END*; 
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81 
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•Oft  IP*  COMMAND  -  "HOVE"; 

•WRITE'  *  "•  ENTER  01  SPLAY  NUMBER  OF  POINT  ANO  NEW  X,V'*"; 
'READ'  ,  "31*"#  01 S# X#  V 1 
PI  .EVAL.  .AOROF.  CIS; 

•IP'  -..POINT.  PI#  'GOTO*  NOT  POINT; 

OX  :>  X-.XOF.  Pi;  OV  :»  v-.YOF.  Pi; 

l.XOF.  PI)  *•  . XUF.  P1*0X;  t ,YOF.  PI)  *»  .VOF.  PUDV; 

001  :■  Pl( 2) ; 

•IF'  QQ1  .AS.  ('INTEGER')  -»■  0; 

P2  .EVAL.  .NEXT.  PI; 

•IF'  .OISPN.  PI  . OISPN.  P2; 

l.XOF.  P2)  *-  . XOF.  P2+DX;  I.YOF.  P2)  :■  .YOF .  P2 

♦  DYS 

P2  .EVAL.  .NEXT.  P2; 

•GO  TO'  MCVEA; 

•ENO* 

•END'; 

•OR  IF'  COMHANO  -  "01 SP"; 

•IF'  HEAO  .AS.  ('INTEGER' >  »  0; 

•WRITE*  #  "•  NOTHING  TO  DISPLAY.'*"; 

•GO  TO'  SKETCH; 

•END'; 

'FOR'  I  ;«  1 #1#  I>50#  'FOR*  J  **  1*1/ J>50,  OISPLAY(I.J)  :«  "  "; 
PI  .EVAL.  HEAO; 

•IF'  .POINT.  Pi; 

01  S*  .XUF.  Pi;  Q2  :«  .YOF.  Pi;  OISPLAY(02#Q1)  :«  "*"; 
•ELSE' ; 

LINE  .EVAL.  (.PT.  PI); 

0Q1  s-  .ENOA.  LINE;  P2  .EVAL.  001; 

0Q1  :■  .EN08.  LINE;  P3  .EVAL.  001 ; 

XI  :*  HIN.l.XGF.  P2..X0F.  P3 ) ; 

X2  :•  MAX. (.XOF.  P2« .XOF.  P3)  ; 

•IF*  xi  ■  X2; 

V 1  s «  MIN. (.YOF.  P2#.Y0F.  P3) 1 
Y2  s»  MAX. (.YOF.  P2,.Y0F.  P3); 

•FOR*  V  :»  VI, l,  Y  >  Y2 •  01  SPLAY (Y, XI )  :•  ; 

•ELSE'; 

Ml  :■  .YCF.  P3  -  .YOF.  P2; 

M2  s»  .XOF.  P3  -  .XOF,  P2; 

M  :«  M1/M2; 

•FOR'  X  s ■  X1,1,X  >  X2; 

Q2  :*  M* ( X  -  .XOF.  P2)  ♦  .YOF.  P2; 

DISPLAY (02 #X)  :■  "*«; 

•ENO* ; 

•ENO' ; 

•ENO* ; 

001  •  ■  .HEAO.  Pi; 

•IF'  QQ1  .AS.  ('INTEGER')  0; 

PI  .EVAL.  .HEAD.  Pi; 

•GO  TO*  ,01  SPA; 

•END'; 

•WRITE'  .  "'1  .',10C  .')*"; 

•FOR*  I  J«  50,-1,  I  <  1# 

•WRITE'  #  "13#  52C 1.1*"#  I," 

DISPLAY) 1,1) .  ..01 SPLAY (1,50) ; 

•WRITE'  #  "•  .',10('  .')•"; 

•ELSE'; 
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END  OF  FILE 
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•MRITE*  t  ”•  ILLEGAL  COMMANO**"} 
•ENO'  » 

•GO  TO'  SKETCH! 

•  PROCEDURE'  MIN.IX.Y); 

•  INTEGER  SHORT'  IX, Y); 

•IF'  X  <■  Y,  'RETURN*  X! 

•RETURN*  Yi 

•  ENO*  ! 

•PROCEDURE*  MAX •! A# B I • 

•  INTEGER  SHORT'  (A.B) S 
•IF*  A  >■  B,  'RETURN'  A; 

•RETURN*.  8! 

•ENO'  ; 

•ENO* 
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Appendix  B.  Contents  of  File  DISPLAYDEF 


DISPLAY  DEFINITIONAL  PACKAGE 

THE  FOLLOWING  PARAMETER  STATEMENT  DEFINES  THE  COMPUNENT  STRUCTURE 
FOR  A  POINT.  THE  USER  SIMPLY  USES  'POINT*  AS  A  MOOE  NAME  IN 
EITHER  A  'DECLARE'  STATEMENT  OK  AN  W  CONSTRUCT  ION .  NOTE  THAT 
THE  STATEMENT 

•PUINT'  IVARI ABLE  LIST) 

WILL  NUT  WORK  BECAUSE  THIS  IS  SIMPLY  A  PARAMETRIC  SUBSTITUTION. 

THE  STRUCTURE  UF  A  PUINT  IS 

POINTER  TO  NEXT  LIST  ITEM 
POINTER  TO  NEXT  ITEM  IN  SAME  PICTURE 
DISPLAY  ITEM  NUMBER 
DISPLAY  ITEM  TYPE  (I 
X  COORDINATE  OF  THE  POINT 
Y  COORDINATE  OF  THE  POINT 


1 

2 

S 

4 

5 

6 


POINTER 
POINTER 
INTEGER  SHORT 
INTEGER  SHORT 
INTEGER  SHORT 
INTEGER  SHORT 


FOR  A  POINT) 


•PARAMETER'  'POINT*  • 6ASEO*  'COMPONENT  STRUCTURE' I *POI NTER' f 

•POINTER* INTEGER  SHORT* ,' INTEGER  SHORT • « • I NTEGER  SHORT'. 
•INTEGER  SHORT' I  'ENOP* 

THE  FOLLOWING  PARAMETER  STATEMENT  DEFINES  THE  COMPONENT  STRUCTURE 
FOR  A  LINE.  THE  USER  SIMPLY  USES  'LINE'  AS  A  MOOt  NAME  IN  EITHER  A 
•CECLARE*  STATEMENT  OR  AN  8  CONSTRUCTION.  NOTE  THAT  THE  STATEMENT 
•LINE'  IVARIABLE  LIST) 

WILL  NOT  WORK  BECAUSE  THIS  IS  SIMPLY  A  PARAMETRIC  SU8ST I  TUI T ION. 

THE  STRUCTURE  OF  A  LINE  IS 

POINTER  TO  THE  NEXT  LIST 


1  POINTER 

2  POINTER 

3  INTEGER  SHORT 

4  INTEGER  SHORT 

5  POINTER 

6  POINTER 


ITEM 

POINTER  TO  THE  NEXT  ITEM  IN  THE  PICTURE 

DISPLAY  ITEM  NUMBER 

DISPLAY  ITEM  TYPE  (2  FOR  A  LINE) 

POINTER  TO  FIRST  END-PUINT 
POINTER  TO  SECOND  fcNO-POINT 


•PARAMETER'  'LINE*  'BASED'  'COMPONENT  STRUCTURE* I 'POINTER* . 

•POINTER* •' INTEGER  SHORT' .' INTEGER  SHORT* , 'POINTER' , 

•POINTER')  'ENOP' 

THfc  FOLLOWING  PARAMETER  STATEMENT  OEFINES  THE  MODE  UF  A  PICTURE. 

A  PICTURE  IS  A  POINTER  TO  ONE  OF  THfc  ITEMS  IN  THE  PICTURE.  HENCE 
IT  IS  SIMPLY  PARAMETERIZE  TO  'POINTER'  MODE. 

•PARAMETER*  'PICTURE*  'POINTER'  'ENOP* 

THE  FOLLOWING  STATEMENTS  DEFINE  THE  GLOBAL  VARIABLES  USED  BY 
THE  DEFINITION  PACKAGE. 

•DECLARE'  DISPLAYN  'INTEGER  SHORT'; 

•PRESET'  OISPLAYN  :>  0; 

•OECLARE'  GDSV  'POINT'; 

•DECLARE'  HEAO  'POINTER'; 

•PRESET'  HEAO  *-  0; 

THE  FOLLOWING  BRINGS  IN  THE  OEFINE  FACILITY  FKUM  THE  FILE  DEFFACILITY 
•INCLUDE*  "DEFFACILITY" 

ThE  FOLLOWING  OEFINES  THfc  STATEMENT 
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•CREATE  POINT*  POINT, X,Y 

WHICH  HAS  THE  EFFECT  OF  THE  LIST  OF  STATEMENTS  SHOWN 

•DEFINE  STATEMENT*  'CREATE  POINT*  POINT, X,Y; 

•ALLOCATE*  POINT i 
POINT  ID  :*  HE  AO, 

HEAO  3«  .PT.  POINT! 

POINT (2)  3*  (0  .AS.  I' POINTER*)); 

OISPLAYN  s«  OISPLAYN*!; 

POINT (3)  :«  OISPLAYN; 

POINT  14)  *»  l; 

POINT (5)  :■  X; 

POINT! 6)  «*  Y; 

•ENO  STATEMENT*; 

THE  FOLLOWING  DEFINES  THE  STATEMENT 
•CREATE  LINE'  LINE, PI, P2 

WHICH  HAS  THE  SAME  EFFECT  AS  THE  LIST  OF  STATEMENTS  SHOWN 

• OEFINE  STATEMENT*  'CREATE  LINE'  LINE,P1,P2; 

•ALLOCATE*  LINE; 

LINE(l)  HEAO; 

HEAO  7-  .1 T.  LINE; 

LINEI2)  S*  (0  .AS.  (*POINTER* ) ) ; 

OISPLAYN  OISPLAVN+l; 

LINEI3)  S«  OISPLAYN; 

LINEI4)  S-  2; 

LINE(S)  :■  .PT.  Pi; 

LINE (6)  :«  .PT.  P2; 

'ENO  STATEMENT'*, 

THE  FOLLOWING  OEFINES  THE  STATEMENT 

•CONNECT*  POINT  *T0*  PICTURE 

WHICH  HAS  THE  SAME  EFFECT  AS  THE  LIST  OF  STATEMENT  SHOWN 

•DECLARE  SYNTACTIC  CLASS*  *T0*  'SAME  AS*  ,  ; 

•OEFINE  STATEMENT*  'CCNNECT*  POINT  'TO*  PICTURE; 

QQ1  :*  PICTURE; 

•IF*  (Qgl  .AS.  I 'INTEGER*))  *  C; 

PICTURE  :»  .PT,  POINT; 

POINT (2 )  :«  .PT.  POINT; 

•ELSE*; 

QQSV  .EVAL.  PICTURE; 

POINT (2)  CCSVI2); 

QQSVt  2)  S*  .PT.  POINT; 

•ENO*; 

•ENO  STATEMENT'; 

THE  FOLLOWING  MACRO  OEFINES  THE  .POINT.  OrcRATOR  AS  A  PASS  ONE  MACRO. 
IT  CAUSES  . POINT.  A  TO  BE  TREATED  AS  AI4)  >  1 

•DECLARE  SYNTACTIC  CLASS*  .POINT.  • SAME  AS'  .ASS.; 

•DEFINE'; 

MACRO,. POINT. ,T,B; 
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119 

LOCAL, U5 

120 

TEMPORARY ,US 

121 

•  TAG*, U,B,* LOCAL LITERAL*  4i 

122 

LN= , T ,U , ' LOCAL L I TERAL '  IS 

123 

MEND, .POINT.; 

124 

ENOS 

125 

« 

126 

THE  FOLLOMING  MACRO  OEF  1NES  .XOF.  AS  A  PASS  ONE  OPERATOR. 

127 

IT  CALSES  .XOF.  A  TO  BE  TREATED  AS  A(5) 

128 

» 

129 

' DECLARE  SYNTACTIC  CLASS*  .XOF.  'SAME  AS*  .ABS.S 

130 

•DEFINE* ; 

131 

MACRO, *XUF.,T, AS 

132 

.TAG.,T,A,*  LOCALL ITER AL '  5; 

133 

MEND, .XOF.  , 

134 

ENOS 

135 

« 

136 

THE  FOLLOMING  CAUSES  . YOF.  TO  BE  OEFINEO  AS  A  PASS  ONE  OPERATOR 

137 

. YOF.  A  HAS  THE  SAME  EFFECT  AS  AI6) 

138 

» 

139 

•DECLARE  SYNTACTIC  CLASS*  .YOF.  'SAME  AS*  .ABS.S 

140 

•DEFINE*; 

141 

MACRO, . YOF. ,T, AS 

142 

. TAG. ,T , A, 'LOCALL (TERAL*  6S 

143 

MEND,. YOF • S 

144 

ENOS 

145 

« 

146 

THE  FOLLOMING  DEFINES  .NEXT.  A  TO  BE  THE  SAME  AS  A(2) 

147 

» 

148 

•DECLARE  SYNTACTIC  CLASS*  .NEXT.  'SAME  AS*  .ABS.S 

149 

•DEFINE*; 

150 

MACRO, . NEXT. ,T, AS 

151 

. TAG., T, A, 'LOCALL  ITERAL*  2S 

152 

MEND, .NEXT.} 

153 

ENOS 

154 

« 

155 

THE  FOLLOMING  DEFINES  .OISPN.  A  TO  BE  THE  SAME  AS  A( 3) 

156 

» 

157 

•OECLARE  SYNTACTIC  CLASS*  .OISPN.  'SAME  AS*  .ABS.S 

15e 

•DEFINE*; 

159 

MACRO,. OISPN.  ,T, AS 

160 

.TAG. ,T, A, 'LOCALL ITEKAL*  3S 

161 

MEND, .OISPN. S 

162 

END; 

163 

•DECLARE  SYNTACTIC  CLASS*  .ENDA.  'SAME  AS*  .ABS.S 

164 

•DEFINE'; 

165 

MACRO, .ENOA.,T,A; 

166 

. TAG. ,T ,A ,' LOCALL ITERAL '  5; 

167 

MEND, .ENDA. , 

168 

END; 

169 

« 

170 

THE  FOLLOMING  DEFINES  .ENOB.  A  TO  BE  THE  SAME  AS  AI6) 

171 

>> 

172 

•DECLARE  SYNTACTIC  CLASS*  .ENOB.  'SAME  AS*  .ABS.S 

173 

•DEFINE*; 

174 

MACRO,. ENOB. ,T, AS 

175 

.TAG.  ,T, A, 'LOCALL ITERAL*  6S 

176 

MENO , .ENOB. S 

177 

ENOS 

178 

« 
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THE  FOLLOWING  DEFINES  .HEAD.  A  TO  BE  THE  SAME  AS  AID 


179 
I  BO 
lai 
182 
183 
ISA 

185 

186 

187 

188 
189 


» 


« 


195  >> 

196 

197 

198 

199 

200 
201 
202 
203 
20A 

205 

206 

207 

208 
2C9 
210 
211 
212 
213 
21A 

215  « 

216 

217  » 

ENO  OF  FILE 


•DECLARE  SYNTACTIC  CLASS*  .HEAD.  'SAME  AS*  .ABS.J 
•DEFINE* ; 

MACRO,. HE AO. ,T,  A; 

.TAG. fTtAt'LOCALLlTERAL'  1; 

MEND,. HEAD.; 

end; 


THE  FOLLOWING  DEFINES  .ADROF. 
STATEMENTS 


A  TO  BE  THE  SAME  AS  THE  SEQUENCE  OF 


190 

QQSV  .EVAL. 

191 

81: 

•IF*  .OISPN. 

192 

UUS V  .EVAL. 

193 

•GO  TO*  B1 

194 

82: 

•RETURN*  .PT 

«  A,  'GO  TO*  B2 


•DECLARE  SYNTACTIC  CLASS*  .ADROF.  'SAME  AS*  .ABS. { 
•DEFINE*; 


•DEFINE*; 

MACKOi.ADRCF. i T,A; 

LUCAL, 81,82; 

LOCAL, T1,T2,T3,TA,T5; 

TEMPORARY ,T1,T2,T3,T4,T5; 

FLAD, 81,82; 

.EVAL. ,T1,XQQSV,«HEAC; 

OES ,81 ; 

. DISPN. ,T2,XQQSV; 

LN*,T3,T2, A, 

TNZ,82*T3; 

•HEAD.,T4, 3QQSV; 

•  EVAL  . ,  T5,XQQSV,T4; 

GUTO,Bl; 

OES, 62; 

.PT.,T,XQQSV; 

MEND,.  ADROF.; 

END; 

ENO  OF  DEFINITIONAL  PACKAGE 
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LIST  DEFFACILITY 


Appendix  C.  Contents  of  File  DEFFACILITY 


THE  FGLLOWING  DEFINES  TFfc  NEW  SIMPLE  STATEMENT 

•DECLARE  SYNTACTIC  CLASS'  A  • SAME  AS*  B 

WHICH  GIVES  THE  SYMBOL  A  EXACTLY  THE  SAME  SYNTACTIC  DEFINITION 
l CL  AS S* SYNT ACT IC  CLASS, LEFT  PR  tCEDENCF  »R IGHT  PRECEDENCE)  AS  rt. 

A  WILL  NOW  BE  TREATED  EXACTLY  AS  B  BY  THE  SYNTACTIC  SCANNER. 

•UtFINE'i  «E  SCAPE  INTO  THE  MACRO  LANGUAGE» 

SETUP, ’DECLARE  SYNTACTIC  CLASS  *  ,14,3  ,4  i  «  SIMPLE  KEYW3RD» 

MACRO, 'DECLARE  SYNTACTIC  CLASS';  «ST ART  THE  MACRO  DEF» 


LOCAL, Ai 
GTOSX; 

set,a,o,dsx; 

GTOSX; 

JMP,LOC+3«DSX 


•SAMEAS'; 


<<  A  IS  SAVED  IN  THIS  LOCAL» 

<<  THIS  READS  A>> 

«SAVE  DSX  UF  A  IN  LOCAL  SYMBUL>> 
«NOW  READ  'SAME  AS'» 

«BE  SURE  IT  REALLY  IS  *SAMEAS'» 


MNOT E ,"****  ONLY  'SAME  AS'  IS  ALLOWED"; 


MEXIT;  «LEAVE  HIM  AT  THE  MERCY  OF  JSCAN>> 

GTOSX;  <<REAO  B» 

SET,IND.(A),1,DSX(I);  «SET  THE  CLASS  CODE  OF  A>> 

SET,IND«SA)  ,2, DSX  (2) ;  «SET  THE  SYNTACTIC  CLASS  OF  A» 

SET,  IND.I  A)  ,3,DSXI3) ;  «SET  THE  LEFT  PRECEDENCE  UF  A» 

SET, IND.IA) ,4 , DSX 14 ) ;  «SET  THE  RIGHT  PRECEDENCE  OF  A>> 

GTOSX;  «KEAD  THE  STATEMENT  TERMINATOR» 

MEND, 'DECLARE  SYNTACTIC  CLASS';  «ALL  DUNE» 

end;  «back  into  mad/i» 


THE  FOLLOWING  DEFINES  A  SPECIAL  PURPOSE  DEFINITIONAL  FACILITY 
WHICH  ALLOWS  THE  DEFINITION  OF  A  SIMPLE  STATEMENT.  THE  DEFINITIONAL 
STATEMENT  IS  OF  THE  FORM 

•DEFINE  STATEMENT*  KEYWORO  LIST  OF  VARIABLES 
LIST  CF  STATEMENTS 
•END  STATEMENT* 

THE  NEWLY  DEFINED  STATEMENT  HAS  THE  FORM 
KEYWORO  LIST  OF  EXPRESSIONS 

EACH  EXPRESSION  WHICH  WILL  OCCUR  IN  AN  INSTANCE  OF  THE  DEFINED 
STATEMENT  IS  REPRESENTED  BY  A  VARIABLE  IN  THE  PROTOTYPE  UF  THE  DEFINE 
STATEMENT.  IN  THE  CODE  GENERATED  FOR  THE  STATEMENT  THE  CODE  FOR 
THE  EXPRESSIONS  WILL  BE  GENERATED  FIRST,  FOLLOWED  BY  THE  CODE  FOR  THE 
MAD/I  STATEMENTS  SPECIFIED  IN  THE  DEFINITION.  ALL  OCCURENCES  UF  T Ht 
VARIABLES  CORRESPONDING  TO  THE  EXPRESSIONS  ARE  REPLACED  BY  THE 
Rt SUL T  OF  THE  CQKRESPCNC INC  EXPRESSION. 


•DECLARE  SYNTACTIC  CLASS'  'DEFINE  STATEMENT'  'SAME  AS'  'DEFINE'; 
•DEFINE';  <<ESCAPE  INTO  THE  MET AL ANGUAGE» 

CREATE,  UEFSTATLAB,DFSTLB  CO  00  *PERCLS(WVAL);  «SETS  UP  CRS» 

MACRC, 'DEFINE  STATEMENT'; 

LOCAL  *KE YWD,VLI ST  «SLIST ,NVL 1ST , I ,Q; 

GTDSX;  <<  GET  THE  KEYWORU» 

SETUP, DSX, 14, 3,4;  «MAKE  IT  SIMPLE  STATEMENT  » 

SET,KEYWD,0,DSX;  <<KEYWD  POINTS  TO  THE  KEYwORD» 

SET  , KEY  WO, I,  INOCLSI  WV  AL  )  ;  «ANC  IT  IS  INDIRECT» 

GTDSX;  «  GET  A  VARIABLE  NAME» 
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59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 


B: 


C: 


E: 

o: 


<< 


» 


JMP, B, OSX  -  LN;  i  <<SEMf COLON  MARKS  THE  END» 

SETLST,VLIST«,DSX;  «  PUT  THE  VARIABLE  INTO  VLIST» 

GTUSX;  «  GET  THE  COMMA  OR  SEMICOLUN» 

JMPf A*OSX  -■  ln;  ;  «THERE  is  another  variable» 

CRS, OEFSTATLAB, NOTING. (DEFSTATLABI ;  «  A  NEW  LIST  TO  HOLD  STM>> 

SE T, SL I  ST,0, OEFSTATLAB,  «SAVE  THE  LIST  NAME» 

SET  fSLISTfl.  INDCLSIWVAL  )  ;  «  MAKE  IT  INOIRECT» 

CRS, DEFSTATLAB, NOTING. (DEFSTATLABI ;  «UNIQUE  SYM  FOR  HIS  VAR» 

SETLST.NVLI ST, .OEFSTATLAB;  «BUILO  A  LIST  OF  THEM» 

JMP, LOC-2  «NVL  I  S  T  ( 0 )  <  VLIST(O);  «WANT  ONE  FOR  EACH  VARIABLE» 
GTGSX •  <<RE AO  A  STATEMENT  OSX» 

JMPfOyOSX  *  'END  STATEMENT1;  <<CHECK  FUR  ENG  OF  OEFINITION>> 

«NOW  CHECK  FOR  IT  IN  THE  VAR  I  ABLES» 
«JUMP  IF  FCUNO  IT» 

«UP  THE  ANTE» 

«CONT  INUE  IF  STILL  MORE  VAKIABLES» 
«  AGO  HIS  OSX  TO  THE  STREAM» 

«  PROCESS  THE  NEXT  OSX» 


DSx; 


SET, 1,0,1; 

JMP  ,E  ,  VL  IS  T(  KOI) 

SET ,  1,0,  I  (OKI ; 

JMP,  LOC-2, 1  (01  <*  VLIST(O),’ 
SETLST,SLIST, ,OSX; 

JMP,C; 


SET,  NOTING.  (OSX),  0,NVL 1ST! I (01  I ;  «PERFORM  THE  SUBST ITUT  ION» 


«  ANO  NOW  OC  IT  TO  THIS» 

«PUT  A  *  END '  ON  THE  ENG  » 

«  AND  FINISH  UP  WITH  A  SEMICOLON  » 
«NOW  DEFINE  THE  MACRO  FOR  THE  KEYWO» 


JMP.LCC-3 . 

SETLST.SLIST,,' END'  ; 

SETLST.SLIST, ,LN; ; 

MACRO, KEYWOt 
OESIST; 

SET,  1,0,1;  «GENERATE  AN  EXPRESSION  SCAN  FOR  EACH  VAR» 

JMP.LQC+10, 1(0 1  >  VLIST(O);  «  STOP  IF  END  OF  LIST» 

SET,  NOT  IND.(Q)  ,C,NVLIST  ( 1(0  )  >;  «Q  WILL  BE  THE  VARIABLE  NAME» 

SET, NOTING r(U),l, INDCLS ( AVAL ) ; 

RESUME  J 

JSCAN,. TAG. .LIST;  «SCAN  OFF  AN  EXPRESS  ION» 


SET, 0,0, EXP. (II 5 

SET ,Q, 1 , INOCLSC 8VAL ) ; 

DESIST; 

SET,  1,0,  1(0  Kl; 
JMP.LCC-9; 

RESUME; 

set,gtosxlist,o,slist; 

BLOCK; 

MENO.KEYWO; 

GTGSX; 

MENU, * OEF I NE  STATEMENT*; 
ENG; 


«MAKE  THE  VARIABLE  THE  RESULT» 


«UP  TO  THE  NEXT  VARIABLE» 

«  AROUND  ANO  AROUND» 

«  REDEFINE  GTGSX  FOR  AWHILE  » 

«  THESE  LOOK  LIKE  SCOPE  OF  STM» 
«ENO  THE  GENERATED  MACRO» 

«  GET  OUR  SEMICOLON» 

«BACK  INTO  MAG/I» 


THE  FOLLOWING  REOEFINES  THE  PSEUDO  OP  FOR  GTGSX.  THE  NEW  GTGSX  ACTS 
EXACTLY  LIKE  THE  OLD  OSX  EXCEPT  THAT  IT  WILL  INSERT  THE  CONTENTS 
OF  THE  LIST  POINTED  TO  BY  GTOSXLIST  INTO  THE  INPUT  STREAM.  THIS 
ALLOWS  A  SEQUENCE  OF  DESCRIPTORS  TO  BE  RETURNED  TO  JSCAN  AS  IF  THEY 
CAME  FROM  THE  INPUT  STREAM 


*  OEF  INE* ; 

SET ,PREVGT0SX,0  «GTOSX(G ) ; 

SET  , PR EV GTGSX, 1,GT0SX(  1 ) ; 

SET, GTOSXLIST, WSIZE.O; 

SET, GTOSXLIST ,0,0; 

MACRO, GTGSX; 

JMP,LCC+3  .GTOSXLIST  (0)  0; 

PREVGTOSX; 

MEXIT; 

SET.GTDSXL  1ST  ,a)SI  ZE  ,GTD5XL  I  ST(  SS I  ZE  I  +1  ;  «  UP  THE  LIST 
JMP,LUC*5,GTDSXLIST(WSIZE)  <*  ( INO. (GTOSXLIST(O) ) ) (0); 


«  THIS  IS  NOW  THE  REAL  GTGSX  » 

«  INITIALIZE  GT OSX  CHEAT  LIST  >> 

<<  USE  REAL  GTOSX  FOR  THE  TIME  BEING  >> 
«  NOW  REDEFINE  GTOSX  » 

«  JUMP  IF  INSERTIONS  TO  BE  MAGE  » 

<<  USE  THE  OLD-FASHION  GTGSX  » 


INDEX  » 


< 
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119 

SETf GTDSXLIST ,£SIZE*0; 

«  LIST  PROCESSED  SO  RESET  » 

12C 

SET,GTDSXLIST,0,0; 

121 

GTOSX; 

«  NOW  TRY  READING  AGAIN  » 

122 

MEXITt 

123 

SET*  NOT IND. (DSX  ItOt  DSXGF •(  (  IND,  (GTDSXL IST( 0) )  )  (GTDSXL I  ST (<iSI  ZE) )  1  ; 

124 

SET , NUT IND. (DSX ) ,  1 , INDCLS(O); 

<<  SET  UP  DSX  » 

125 

MEND t GTOSX; 

126 

ENO; 

127 

« 

126 

THE  FOLLOWING  MACRO  CREATES  A 

FLOATING  ADDRESS  CORRESPONDING  TO 

129 

EACH  PARAMETER 

130 

>> 

131 

♦DEFINE*} 

132 

MACRO, flad; 

133 

lucal,i  ; 

134 

SET, I, 0,1; 

135 

JMP,L0C*2,PAR. (0)  >-  1(0); 

136 

mexit; 

137 

CRS, FLD, NOTING, (FLD) ; 

136 

SET,FLD,1,NCTIND. (FLO) (SHOD)  } 

139 

SET, PAR, (.1(01,0,  FLO; 

140 

SET  ,PAR.( 1(C)), 1, INOCLS(O) ; 

141 

SET  ,I,0,I(0)+1; 

142 

JMP,L0C-7; 

143 

MEND, FLAD; 

144 

END; 

145 

« 

146 

THE  FOLLOWING  MACRO  CREATES  A 

TEMPORARY  CORRESPONDING  TO  EACH  PARAMETER 

147 

» 

148 

♦DEFINE* ; 

149 

MACRO, TEMPORARY; 

150 

LOCAL, I; 

151 

SET, I, o,i; 

152 

JMP,L0C+2«PAR.(Q)  >«  1(0); 

153 

MEXIT; 

154 

CRS.TMP, NOTING. (TMP); 

155 

SET,TMP,1,N0TIND.(TMP)(«M0D); 

156 

SET, PAR  ,  {  1(0  )  ,  0,  TMP  ; 

157 

SET, PAR. (1(0)), 1, INDCLS(C); 

158 

SET,I,0,I(0)*l; 

159 

JMP.LOC-7; 

160 

MEND, TEMPORARY; 

161 

END; 

162 

<< 

163 

THE  FOLLOWING  REDEFINES  THE  GETTEMP  AND  FREETEMP  MACROS  TO 

164 

GET  AROUND  THE  PROBLEM  CF  THE 

REASSIGNMENT  OF  THE  STURAGE 

165 

ALLOCATION  OF  A  TEMPORARY. 

166 

>> 

167 

•DEFINE*; 

168 

MACEXCTYPE.7; 

169 

MACDEFTYPE, 2} 

1 70 

POPMACRO, GETTEMP, FREETEMP; 

171 

ATR,«TEMP1, EXTEND ED; 

172 

ATR,«TEMP2,L0CAL,20,4 ; 

173 

SET  ,TEMPLST ,WVAL,0; 

174 

175 

MACRO, GETTEMP, S, MODE, LEN; 

176 

LOCAL, I, J; 

177 

JMP, LCC+4 ,LEN  <*  16; 

1  7fl 

ERR: 

MNOTE  ,»****  GETTEMP  CALLED  FOR  MORE  THAN  SIXTEEN  BYTES."; 

i 
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179 

OUMPDSX.S *MCDE»LEN; 

iac 

MEXIT; 

181 

CLEAR, S; 

182 

SET,  I  ,«)VAL , 5 i 

183 

SET ,J,AVAL,G; 

184 

TEST: 

JMP  ,0CNE  ,  I  >  TEMPLST « 

185 

JMP,LCC+3  ,  TEMPLST  (  I  )  (4TEMP2 )  0; 

186 

SET ,  J,<)VAL  ,1 ; 

ie7 

jmp, search; 

188 

JMP,  SEARCH,  TEMPLST!  IHATEMP2)  —  OSXOF.(S): 

189 

GOOD  i 

SET, TEMPLST (I) ,3TEMP2 ,OSXUF. < S ) J 

19C 

SET ,S  »AXA ,1; 

191 

SE  T  , S , AMOOE  , MOLJE  (  AMOOE)  { 

192 

set,s,slen,len: 

193 

SET, S«AVAL, TEMPLST! I); 

194 

MEXIT; 

195 

SEARCH: 

SET, t,AVAL,I+l; 

196 

JMP, TEST; 

197 

DONE : 

JMP  ,NU, J  «  C; 

198 

SET ,  I.AVAL.J; 

199 

jmp, good; 

20C 

NO: 

APNU, TEMPLST, 1,  (  ; 

201 

SET .TEMPLST ,3V AL, i ; 

202 

SPACE, TEMPLST (I), 16, 8; 

203 

jmp.gooo; 

204 

MENU.CETTEMP; 

205 

2C6 

macrc.freetemp.s; 

207 

LOCAL,  I; 

2C8 

RELSYM8  *S ; 

2C9 

SET, I, AVAL, 5; 

210 

JMP ,NC, I  >  TEMPLST; 

211 

JMP, GCTIT, TEMPLST 'I  MATEMP2)  «  DSXCF.(S); 

212 

SE  r , I , AVAL ,1+ 1 ; 

213 

JMP.LCC-3; 

214 

GOTIT: 

SET, TEMPLST (1) ,AT  EMP2 ,C ; 

215 

ho: 

SET, S, AVAL, 0; 

216 

SET  ,  S  ,3X  A  ,1 ; 

217 

SET ,S,ASIIE  ,0; 

218 

SET  ,  S  ,ACLS  ,NJT  IN0.1TMPH  AMCOJ  ; 

219 

MENU, FREE TEMP; 

220 

22 1 

MACOEFTYP  E, 1 ; 

222 

MACEXCT YPE  ,1; 

223 

END; 

END  CF  FILE 


Appendix  D 


U.IST  -DATA 

1  DISPLAY 


2 

POINT 

3 

10  10 

4 

POINT 

5 

10  40 

6 

POINT 

7 

40  10 

8 

POINT 

9 

40  40 

10 

DISPLAY 

11 

LINE 

12 

1  2 

13 

LINE 

14 

1  3 

15 

LINE 

16 

2  4 

17 

LINE 

16 

3  4 

19 

DISPLAY 

20 

MOVE 

21 

l  15  20 

22 

DISPLAY 

23 

PICTURE 

24 

1 

25 

2 

26 

3 

27 

4 

26 

0 

29 

MOVE 

30 

1  20  20 

31 

OF  FILE 

DISPLAY 

Contents  of  Piie  -DATA 
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Appendix  E.  Compilation  or  the  MAD/I  Program 

♦CREATE  SkETCHOBJ 
FILE  ALHEAJV  EXISTS 
♦EMPTY  SKETCH08J 
00  NE  • 

♦RUN  *MAU1  SCAROS*SKtTCH  SPUNCH*SKETCHOBJ  PAR*l. 

EXECUTION  dEGINS 


MAO/I  COMPILER  OPTION  ASSIGNMENTS: 

SOURCE* DECK, L  1ST, SORMGIN* (POl , 2561 , FREEFORM.CONTCHAR-* 
SOURCET AB«006 ,  SIZE*! 0003 *0255 1 « COMP ILE 
NOMAP, NOXREF ,ATRtOPLI ST, USER, NOACOENCA 

MAO/ I  COMPILER  VERSION  AN049-134322 . 

MAO/I  COMPILER  SlURCE  PROGRAM  LISTING  . 


*0001 
*0002 
*0003 
*0004  « 
*0005 
*0006 
*0007 
*0008 
*0009 
*0010 
*0011 
*0012 
*0013 
*0014 
*0015 
*0016 
*0017 
•0018 
*0019 
*0020  » 
*0021 
*0022 
*0023 
*0024  « 
*0025 
*0026 
*0027 
*00?8 
*0029 
*0030 
*0031 
*0032 
*0033 
*0034 
*0035 
*0036 
*0037  » 
*C038 
*0039 
*0040 
*0041  « 
*0042 
*0043 
*0044 
*0045  » 
*0046 
*0047  « 
*0048 
*0049 


•PROCEDURE*  SKETCH* « 

•INCLUDE*  •OISPLAVOEF" 

DISPLAY  DEFINITIONAL  PACKAGE 

THE  FOLLOWING  PARAMETER  STATEMENT  DEFINES  THE  COMPONENT  STRUCTURE 
FUR  A  POINT.  THE  USER  SIMPLY  USES  'POINT*  AS  A  MOOE  NAME  IN 
EITHER  A  'DECLARE*  STATEMENT  OR  AN  i  CONSTRUCTION.  NOTE  THAT 
THE  STATEMENT 

•POINT*  (VARIABLE  LIST) 

WILL  NUT  WORK  BECAUSE  THIS  IS  SIMPLY  A  PARAMETRIC  SUBSTITUTION. 

THE  STRUCTURE  OF  A  POINT  IS 

1  POINTER  PCINTER  TO  NEXT  LIST  ITEM 

2  PCINTER  POINTER  TO  NEXT  ITEM  IN  SAME  PICTURE 

3  INTEGER  SHORT  DISPLAY  ITEM  NUMBER 

4  INTEGER  SHORT  DISPLAY  ITEM  TYPE  (1  FOR  A  POINT) 

5  INTEGER  SHORT  X  COORDINATE  OF  THE  POINT 

6  INTEGER  SHORT  Y  COORDINATE  OF  THE  POINT 

•PARAMETER*  'POINT*  'BASED*  'COMPONENT  STRUCTURE* I • POINTER* , 

•POINTER* ,* INTEGER  SHORT* ,* INTEGER  SHORT* ,* INTEGER  SHORT*, 
•INTEGER  SHORT*)  *ENOP* 

THE  FOLLCWING  PARAMETER  STATEMENT  DEFINES  THE  COMPONENT  STRUCTURE 
FUR  A  LINE.  THE  USER  SIMPLY  LSES  ' LINE'  AS  A  MODE  NAME  IN  EITHER  A 
•DECLARE*  STATEMENT  OR  AN  d  CONSTRUCTION.  NOTE  THAT  THE  STATEMENT 
•LINE*  (VARIABLE  LIST) 

WILL  NUT  WORK  BECAUSE  THIS  IS  SIMPLY  A  PARAMETRIC  SUBST ITUIT ION. 

THE  STRUCTURE  OF  A  LINE  IS 

1  POINTER  POINTER  TO  THE  NEXT  LIST  ITEM 

2  POINTER  POINTER  TO  THE  NEXT  ITEM  IN  THE  PICTURE 

3  INTEGER  SHORT  DISPLAY  ITEM  NUMBER 

4  INTEGER  SHORT  DISPLAY  ITEM  TYPE  (2  FOR  A  LINE) 

5  POINTER  POINTER  TO  FIRST  END-POINT 

6  POINTER  POINTER  TO  SECOND  END-POINT 

•PARAMETER*  'LINE*  'BASED*  'COMPONENT  STRUCTURE* I 'POINTER* , 

•  POINTER* ,* INTEGER  SHORT* ,* INTEGER  SHORT*, 'POINTER* , 

•POINTER*)  'ENOP' 

THE  FOLLOWING  PARAMETER  STATEMENT  DEFINES  THE  MODE  OF  A  PICTURE. 

A  PICTURE  IS  A  POINTER  TO  CNE  OF  THE  ITEMS  IN  THE  PICTURE.  HENCE 
IT  IS  SIMPLY  PARAMETERIZED  TC  'POINTER*  MODE. 

•PARAMETER'  'PICTURE'  'POINTER'  ' ENDP* 

THE  FOLLOWING  STATEMENTS  OEFINE  THE  GLOBAL  VARIABLES  USEO  BY 
THE  DEFINITION  PACKAGE. 


E-2 


/ 


*0050  » 
*0051 
*0052 
*0053 
*0054 
*0055 
*0056  « 
*0057 
*0058  » 
*0059 
*0060  « 
*0061 
*0062 
*0063 
•0064 
*0065 
*0066 
*0067 
*0068  » 
*0069 
*0070 
*0071 
*0072 
*0073 
*0074 
*0075 
*0076 
*0077 
*0078 
*0079 
*0080 
*0081 
*0082 
*0083 
*0084 
*0085 
*0086 
*0087  « 
*0088 
*0089 
*0090 
*0091 
*0092 
*0093 
*0094 
*0095 
*0096 
*0097 
*0098 
*0099 
*0100 
*0101 
*0102 
*0103 
*0 104 
*0105 
*0106 
*0107  » 
*0108 
*0109 


•DECLARE'  CISPLAYN  « INTEGER  SHORT*; 

•PRESET*  DISPLAVN  0; 

•DECLARE*  QQSV  'POINT*; 

•DECLARE*  HEAD  'POINTER*; 

•PRESET*  HEAD  S«  0; 

'  / 

THE  FULLUWING  BRINGS  IN  THE  DEFINE  FACILITY  FROM  THE  FILE  OEFFACILITY 


'  INCLUDE '  "OEFFACILITY** 

THE  FOLLOWING  DEFINES  THE  NEW  SIMPLE  STATEMENT 

•DECLARE  SYNTACTIC  CLASS*  A  'SAME  AS*  B 


WHICH  GIVES  THE  SYMBOL  A  EXACTLY  THE  SAME  SYNTACTIC  DEFINITION 
(CLASS, SYNTACTIC  CLASS, LEFT  PRECEDENCE, RIGHT  PRECEDENCE)  AS  B. 
A  WILL  NOW  BE  TREATED  EXACTLY  AS  B  BY  THE  SYNTACTIC  SCANNER. 


•OEFINE  • ;  «ESCAPE  INTO  THE  MACRO  LANGUAGE» 
SETUP, 'DECLARE  SYNTACTIC  CLASS* ,14,3,4;  «  SIMPLE  KEYWORD» 
MACRO, 'DECLARE  SYNTACTIC  CLASS*;  «START  THE  MACRO  DEF» 


LOCAL, A; 

GTDSX; 

SET ,A,0,DSX; 

GTDSX; 

JMP , LOCO,  DSX  -  'SAMEAS* ; 
MNOTE,"****  ONLY  'SAME  AS* 
MEXIT; 

GTDSX ; 

SET,IN0.(A),1, DSXi 1 ) ; 

SET, IND. ( A) ,2 , DSXI 2 ) ) 
SET,IN0.(A),3,DSX<3J ; 
SET,IND.(A)«4,DSX(4) ; 


«  A  IS  SAVED  IN  THIS  LOCAL» 

«  THIS  REAOS  A» 

«SAVE  DSX  OF  A  IN  LOCAL  SVMBOL» 
«NOW  READ  'SAME  AS*>> 

«BE  SURE  IT  REALTY  IS  *SAMEAS*» 

IS  ALLOWED"; 

«LEAVE  HIM  AT  THE  MERCY  OF  JSCAN» 
«RE AD  B» 

<<SET  THE  CLASS  CODE  OF  A» 

«SET  THE  SYNTACTIC  CLASS  OF  A» 

<< SET  THE  LEFT  PRECEDENCE  OF  A>> 
«SET  THE  RIGHT  PRECEDENCE  OF  A» 
«READ  THE  STATEMENT  TERMINATOR» 


GTDSX; 

MEND, •  DECLARE  SYNTACTIC  CLASS';  «ALL  DONE» 

end;  «back  into  mad/i» 


THE  FOLLOWING  DEFINES  A  SPECIAL  PURPOSE  DEFINITIONAL  FACILITY 
WHICH  ALLOWS  THE  DEFINITION  OF  A  SIMPLE  STATEMENT..  THE  DEFINITIONAL 
STATEMENT  IS  OF  THE  FORM 


•DEFINE  STATEMENT*  KEYWORD  LIST  OF  VARIABLES 
LIST  OF  STATEMENTS 
•END  STATEMENT* 

THE  NEWLY  DEFINED  STATEMENT  HAS  THE  FORM 
KEYWORD  LIST  OF  EXPRESSIONS 

EACH  EXPRESSION  WHICH  WILL  CCCUR  IN  AN  INSTANCE  OF  THE  DEFINED 
STATEMENT  IS  REPRESENTED  BY  A  VARIABLE  IN  THE  PROTOTYPE  OF  THE  DEFINE 
STATEMENT.  IN  THE  CCDE  GENERATED  FOR  THE  STATEMENT  THE  CODE  FOR 
THE  EXPRESSIONS  WILL  BE  GENERATED  FIRST,  FOLLONEO  BY  THE  CODE  FOR  THE 
MAO/I  STATEMENTS  SPECIFIED  IN  THE  DEFINITION.  ALL  OCCURENCES  OF  THE 
VARIABLES  CORRESPONDING  TO  THE  EXPRESSIONS  ARE  REPLACED  BY  THE 
RESULT  OF  THE  CORRESPONDING  EXPRESSION. 

•OECLARE  SYNTACTIC  CLASS'  'DEFINE  STATEMENT*  'SAME  AS*  'DEFINE*; 
•DEFINE*;  <<ESC APE  INTO  THE  METAL ANGUAGE» 
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0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117  A: 
0118 
0119 
0120 
0121 
0122  B: 
0123 
0124 
0125 
0126 
0127 
0128  Cl 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136  E: 
0137 
0138  D: 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160  « 
0161 
01*2 
0163 
0164 
0165 
0166  » 
0167 
0168 
0169 


CREATE  .OEFSTATLAB, OF ST L80000.PERCLS OVAL ) ; 
MACRO. • DEFINE  STATEMENT4 ; 
L0CAL,KEVW0,VLIST,SLIST,NVLTST,I,Q; 


«SETS  UP  CRS» 


6T0SX; 

SETUP. OSX, 14. 3,4; 

SET.KE YWO.G  »OSX; 
SET.KEYMO, 1, INDCLS(WVAL) I 
GTOSX; 

JMP.B.OSX  *  LN;  { 

SE  TL  ST, VL I ST  » .OSX } 

GTOSX; 

jmp.a.osx  ln;  ; 


«  GET  THE  KEYWORO» 

«MAKE  IT  SIMPLE  STATEMENT  » 

<<KEYHO  POINTS  TO  THE  KEYWQRO» 

«ANO  IT  IS  INOIRECT» 

«  GET  A  VARIABLE  NAME» 

«SEMICOLON  MARKS  THE  ENO» 

«  PUT  THE  VARIABLE  INTO  VLIST» 

«  GET  THE  COMMA  OR  SEMICOLON» 

« THE  RE  IS  ANOTHER  VARTABLE» 
CRS.OEFSTATLAB .NOTINO. ( OEFSTATLAB) ;  «  A  NEW  LIST  TO  HOLD  STM» 

SET,  SL I  ST  ,0,0EF  STATLAB  ;  «SAVE  THE  LIST  NAMt» 

SET, SL  1ST,  1, INOCLS! 3VAL)  ;  <<  MAKE  IT  INOIRECT» 

CRS,  OEFSTATLAB,  NOT  I  NO*  (OEFSTATLAB);  «UNIQUE  SYM  FOR  HIS  VAR» 
SETLST.NVLIST,, OEFSTATLAB;  «BUILO  A  LIST  OF  THEN» 

JMP,  LUC-2,  NVL I  ST (0)  <  VLIST(O);  «WANT  ONE  FOR  EACH  VARIABLE» 
GTOSX;  «RE AO  A  STATEMENT  OSX» 

JMP, 0, OSX  *  'END  STATEMENT4;  «CHECK  FOR  END  OF  OEFINITION» 

«NOW  CHECK  FOR  IT  IN  THE  VARIABLES» 
<< JUMP  IF  FOUND  IT» 

«UP  THE  ANTE» 

<<CUNT INUE  IF  STILL  MORE  VARIABLES» 
«  AOO  HIS  OSX  TO  THE  STREAM» 

«  PROCESS  THE  NEXT  DSX» 


OSX; 


SET, 1,0, l; 

JMP,E,VLISTC(On 
SET ,  1,0, I(0)*1 ; 

JMP, LUC-2,  I (0)  <*  VLIST(O); 
SETLST.SU  ST,  ,OSX; 

JMP,C ; 


SET, NOTINO.  (OSXJ.O, NVL  IST(  non;  «PERFORM  THE  SUBST  ITUT  ION» 


«  AND  NOW  00  IT  TO  THIS» 

«PUT  A  *ENO*  ON  THE  END  » 

«  AND  FINISH  UP  WITH  A  SEMICOLON  » 
«NOW  DEFINE  THE  MACRO  FOR  THE  KEYWO» 


JMP, LUC-3; 

setlst,slist,,‘eno4; 

SE TLST , SLIST, , LN; ; 

MACRO, KEYWC; 

DESIST; 

SET, 1, 0,1;  «GENERATE  AN  EXPRESSION  SCAN  FOR  EACH  VAR» 

JMP.L0C+10 , I (0 )  >  VLISTIO);  «  STOP  IF  END  OF  LIST» 

SET,  NOTINO.  (til  ,0,NVLIST(  KOI);  «Q  WILL  BE  THE  VARIABLE  NAME» 
SET, NOTINO. (Q),l, I NUCLSI3VAL); 

RESUME; 


JSC AN, .TAG., LIST; 
SET,Q,G,EXP.(  1 1 ; 

SET ,Q,1 , INCCLSIdVAL I } 
DESIST; 

SET,  i.o.kcim; 

JMP, LUC-9; 

RESUME; 

SET .GTCSXL 1ST, 0, SLIST; 
BLOCK; 

MENO.KEYWO; 

GTOSX; 

MENO,*OEFIKE  STATEMENT4; 
ENO; 


<<SC AN  OFF  AN  EXPRESSION» 

«MAKE  THE  VARIABLE  THE  RESULT» 


«UP  TO  THE  NEXT  VARI ABLE» 

«  AROUND  AND  AROUNO» 

«  REDEFINE  GTOSX  FOR  AWHILE  » 

«  THESE  LOOK  LIKE  SCOPE  OF  STM» 
«ENO  THE  GENERATEO  MACRO» 

«  GET  OUR  SEMICQLON» 

I 

«BACK  INTO  MAO/I » 


THE  FOLLOWING  REOEFINES  THE  PSEUDO  OP  FOR  GTOSX.  THE  NEW  GTOSX  ACTS 
EXACTLY  LIKE  THE  OLO  OSX  EXCEPT  THAT  IT  WILL  INSERT  THE  CONTENTS 
OF  THE  LIST  POINTED  TO  BY  GTOSXLIST  INTO  THE  INPUT  STREAM.  THIS 
ALLOWS  A  SEQUENCE  OF  DESCRIPTORS  TO  BE  RETURNED  TO  JSCAN  AS  IF  THEY 
CAME  FROM  THE  INPUT  STREAM 

'DEFINE4; 

SET,PAEVGT0SX,0,GT0SX(0! ;  «  THIS  IS  NOW  THE  REAL  GTOSX  » 

SE T, PRE VGT OSX, 1, GTOSX! II. 
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*0.170 
*0171 
*0172 
*0173 
*0174 
*0175 
*0176 
*0177 
*0178 
*0179 
*0180 
*0181 
*0182 
*0183 
*0  184 
*0185 
*0186  « 
*0187 
*0188 
*0189  » 
*0190 
*0191 
*0192 
*0193 
*0194 
*0195 
*0196 
*0197 
*0198 
*0199 
*0200 
*0201 
*0202 
*0203 
*0204  « 
*0205 
*0206  » 
*0207 
*0208 
*0209 
*0210 
*0211 
*0212 
*0213 
*0214 
*0215 
*0216 
*0217 
*0218 
*0219 
*0220 
*0221  « 
*0222 
*0223 
*0224 
*0225  » 
*0226 
*0227 
*0228 
*0229 


SET, GTOSXLIST, SSIZE.O;  «  INITIALIZE  GTOSX  CHEAT  LIST  » 

SET, GTOSXLIST, 0  ,0,  «  USE  REAL  GTOSX  FOR  THE  TIME  BEING  » 

MACRO. GTQSXI  «  NOW  REDEFINE  GTOSX  » 

JMP, LOCO  .GTOSXLIST  (0)  -•*  0}  <<  JUMP  IF  INSERTIONS  TO  BE  MADE  » 

PREVGTOSX ;  «  USE  THE  OLD-FASHION  GTOSX  » 

MEXITJ 

SE T.GTOSXL I  ST .aSIZE .GTDSXL 1ST (aSIZE)+l;  «  UP  THE  LIST  INDEX  » 

JMP.LOC+5 .GTOSXL 1ST  OS IZE )  <*  C I  NO. t GTOSXLIST (01)1 1 0)  J 

SET .GTDSXL 1ST , aSIZE ,0;  «  1 1ST  PROCESSEO  SO  RESET  » 

SET, GTOSXLIST, 0,0; 

GTOSX i  «  NOW  TRY  READING  AGAIN  » 

MEKIT; 

St T, NUT  I NO. ( OSX ) , 0,0SXQF. ( ( INO. (GTOSXLIST 10 1 ) MGTDSXLIST  (WS IZE) I ) I 
SET, NOTING. (OSX), 1, IN0CLS(0)J  «  SET  UP  OSX  » 

MENO, GTOSX; 

END; 

THE  FOLLOWING  MACRO  CREATES  A  FLOATING  AOURESS  CORRESPONDING  TO 
EACH  PARAMETER 

•DEFINE*; 

MACRO, FLAG; 

LOCAL, I ; 

SET, I, 0,1; 

JMP,LUC*2,PAR. (0)  >*  MO); 

MEXIT; 

CRS, FLO, NOT INO. (FLO) ; 

SET, FLO, 1, NOTING. (FLO) (WMQD) ; 

SET, PAR. ( 1 10) ) ,0,FLD; 

SET .PAR. 1 1 (0) ), 1 , 1 NOCLSIO)  ; 

SET ,1,0,  MO)  +  l; 

JMP.LOC-7; 

MEND, FLAG; 

end; 

THE  FOLLOWING  MACRO  CREATES  A  TEMPORARY  CORRESPONDING  TO  EACH  PARAMETER 

•DEFINE*; 

MACRO, TEMPORARY; 

LOCAL. I ; 

SET, I, 0,1; 

JMP.LQC+2, PAR* (0)  >*  1(0); 

HE  X  IT • 

CRS.TMP, NOTING. (TMP ) ; 

SET,TMP,1 .NOT INO.(TMP) (WMOO) ; 

SE  T, PAR. (1(C)), 0, TMP; 

SET,PAR.(I(0)),1, INOCLS(O) 5 
SET.I.C,  I(0)U; 

JMP.LOC-7; 

MENO, TEMPORARY; 

END; 

"THE  FOLLOWING  REOEFINES  THE  GETTEMP  AND  FREETEMP  MACROS  TO 
GET  ARUUNO  THE  PROBLEM  OF  THE  REASSIGNMENT  OF  THE  STORAGE 
ALLOCATION  CF  A  TEMPORARY. 

•DEFINE* ; 

MACEXCTYPE , 7; 

MACOEFTYP  E ,2 • 

POPMACRO, GETTEMP, FREtTEMP; 
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*0230 

*0231 

*0232 

*0233 

*0234 

*023!) 

*0236 

*0237  ERR: 

*0238 

*0239 

*0240 

*0241 

*0242 

*0243  TEST: 

*0244 

*0245 

*0246 

*0247 

*0248  G000: 

*0249 

*0250 

*0251 

*0252 

*0253 

*0254  SEARCH: 
*0255 

*0256  UUNE: 
*0257 
*0258 
*0259  NO: 
*0260 
*0261 
*0262 
*0263 
*0  264 
*0265 
*0266 
*0267 
*0268 
*0269 
*0270 
*0271 
*0272 

*C273  GCJTIT: 
*0274  NO: 

*027  5 
*0276 
*0277 
*0278 
*0279 
*0280 
*0281 
*0282 
*0283  « 

*0284 
*0285 
*0286 
*0  28  7 
*0288 
*0289  » 


A TR, 8  TEMPI .EXTENDED} 

AIR  ,8TtMP2  .LOCAL. 2A, 4; 

SET  ,'TfcMPLST ,<»VAL  ,0  i 

MACRCM.LT  TEMP  .  S  .MODE  ,LEN; 

LOCAL, 1 ,J; 

JMP,LUC*4,LEN  <*  16} 

MNQTE, '•****  GETTEMP  CALLED  FCR  MORE  THAN  SIXTEEN  8YTES."} 
OUMPOSX  »S .MODE , LEN; 

MEXIT; 

CLEAR, S! 

SET  ,  I  ,olVAL  ,5! 

SET, J, OVAL ,C; 

JMP, DONE, I  >  TEMPLST; 

JMP  »LUC*3  ,  TEMPLST  (  I  )  (8TEMP2  )  0} 

SE  T  ,  J  ,  *VAL  ,  I  * 

JMP, SEARCH; 

JMP.Sfc  ARCH  .TEMPLST  (I  )  (  ST  EMP2  )  OSXOF.CS>} 

SET.TEMPLSTU  >  , 2 TEMP2, DSXOF. C S > { 

SET  ,S  ,a)X  A ,  1 ; 

SE  T  ,  S  ,<iiMCOE  ,  MODE  (8MCCE  >  i 
SET , S ,»LEN ,LEN ; 

SET, S.^VAL, TEMPLST ( I ); 

MEXIT; 

SE  T,  I  , aVAL ,1*1; 

JMP, TEST; 

JMP, NO, J  -  o; 

SET  ,  I  ,  a)VAL  ,  J  ; 

JMP, good; 

APNO, TEMPLST, l.I ; 

StT, TEMPLST  ,  aiVAL.I; 

SPACE  ,  TEMPI.  STCI  I  ,16,8} 

JMP, good; 

MENO, GETTEMP; 

MACRO, FREfcTEMP,$; 

LOCAL, I ; 

RtLSYMU.S} 

SET  ,  I  , aiVAL  ,5 ; 

JMP, NO, I  >  TEMPLST; 

JMP.GUTIT.TEMPLSTCI) ( WTEMP2I  *  OSXOF.(S); 

SE  T  ,  I  ,q)VAL  ,1*1  ; 

JMP.LOC-3; 

SET , TEMPLST ( I >,4TEMP2,0; 

SET ,S,ti)VAL  ,0; 

SET , S , aXA ,  1 ; 

SET  ,S  ,a)S  I2E  ,0; 

SE  T  ,  S  ,a)CL  S  ,  NOT  I  NO.  (  TMP  I  (  JMUD)  ; 

meno.freetemp; 
macoeftype , l ; 

MACEXC1YPE  ,1? 

enc; 

THE  FOLLtiNING  OEFINES  THE  STATEMENT 
•CREATE  POINT*  POINT, X,Y 

WHICH  hAS  THE  EFFECT  OF  THE  LIST  OF  STATEMENTS  SHOWN 
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*0290 

*0291 

*0292 

*0293 

*0294 

*0295 

*0296 

*0297 

*0298 

*0299 

*0300 

*0301  « 

*0302 

*0303 

*0304 

*0305 

*0306 

*0307  » 

*0308 

*0309 

*0310 

*0311 

*0312 

*0313 

*0314 

*0315 

*0316 

*0317 

*0318 

*0319  « 

*0320 

*0321 

*0322 

*0323 

*0324 

*0325  » 

•0326 

*0327 

•  0328 

*0329 

*0330 

*0331 

*0332 

*0333 

*0334 

*0335 

*0336 

*0337 

*0338  « 

*0339 

*0340 

*0341  » 

*0342 

*0343 

*0344 

*0345 

*0346 

*0347 

*0348 

*0349 


•DEFINE  STATEMENT*  ‘CREATE  PCINT*  POINT, X,Y; 

•ALLOCATE*  POINT; 

POINT ( 1)  :«  HEAD; 

HEAD  :s  . PT.  POINT; 

P0INTI2)  :=  (0  .AS.  ( •  POINTER*  ))  ,* 

DISPLAVN  :«  DISPLAYN+1; 

P0INTI3)  :«  DISPLAVN*. 

POINT (41  *«  l; 

POINT ( 5 )  s«  X; 

POINT  16)  V; 

•END  STATEMENT*; 

THE  FOLLOWING  DEFINES  THE  STATEMENT 
•CREATE  LINE*  LINE, PI, P2 

WHICH  HAS  THE  SAME  EFFECT  AS  THE  LIST  OF  STATEMENTS  SHOWN 

•DEFINE  STATEMENT*  • CREATE  LINE*  LINE, PI, P2; 

•ALLOCATE*  LINE; 

LINE! 1)  J«  HEAD; 

HEAD  :«  .PT.  LINE; 

LINEI2I  s»  (0  .AS.  ( • PCINTER* I ) ; 

DISPLAVN  :>  DISPLAVNtl; 

LINE (3)  s«  CISPLAVN; 

LINEI4I  s»  2; 

L I NE < 5 1  :«  .PT.  Pi; 

LINEI6)  :«  .PT.  P2; 

•END  STATEMENT*; 

THE  FOLLOWING  DEFINES  THE  STATEMENT 

•CONNECT*  POINT  *TC*  PICTURE 

WHICH  HAS  THE  SAME  EFFECT  AS  THE  LIST  OF  STATEMENT  SHOWN 

•DECLARE  SYNTACTIC  CLASS*  *T0»  ‘SAME  AS*  ,  ,* 

•DEFINE  STATEMENT*  • CONNECT*  POINT  *T0*  PICTURE; 

QQ1  :*  PICTURE; 

•IF*  (QQ1  .AS.  ('INTEGER*))  *  0; 

PICTURE  :«  .PT.  POINT; 

PCINT(2)  J«  .PT.  POINT; 

•ELSE*  ; 

CQSV  .EVAL.  PICTURE; 

POINT (2)  :»  CQSV(2); 

CQSV(2 )  :*  .PT.  POINT; 

•END* ; 

•END  STATEMENT*; 

THE  FOLLOWING  MACRO  DEFINES  THE  .POINT.  OPERATOR  AS  A  PASS  ONE  MACRO 
IT  CAUSES  .POINT.  A  TO  BE  TREATED  AS  A(4)  *  1 

•DECLARE  SYNTACTIC  CLASS*  .POINT.  'SAME  AS*  .ABS.; 

•DEFINE* ; 

MACRO.  .PC INT • . T  «  B; 

LOCAL, U; 

TEMPORARY, t; 

•  TAG. ,U,B,*  LOCALL IT ERAL*  4; 

LN=,T,U.*LOCALlITERAL*  l; 

MEND, .POINT.; 


*C  350 

*0351  « 

*0352 

*0353 

*0  354  » 

*0  355 

*0356 

*0  35  7 

*0358 

*0359 

*0  360 

*0361  « 

*0362 

*0363 

*0304  » 

*0365 

*0  366 

*0367 

*0  368 

*0369 

*0370 

*0371  « 

*0372 

*0  373  » 

*0374 

*0375 

*0  376 

*0377 

*0378 

*0379 

*0  380  « 

*0  381 

*0  382  » 

**383 

*0  384 

*0385 

*0  386 

*0387 

*C  388 

*0389 

*0  390 

*0391 

*0  392 

*0393 

*0  394 

*0395  « 

*0396 

*0397  >> 

*0390 

*0399 

*0400 

**401 

*0402 

*040  3 

*0404  « 

*0406  » 
♦  040  7 
*0408 
*0409 


fcNO; 

THE  F JLLCwI  NO  MACRO  DEFINES  .XUF .  AS  A  MASS  ONE  OPERATOR. 

IT  CAUSES  . XUF •  A  TO  UE  TREATED  AS  ACS) 

•DECLARE  SYNTACTIC  CLASS*  .XUF.  'SAME  AS*  .ABS.{ 

•UtElNE*  ; 

MACRO. .XOF..T , A; 

•  T  AU. ,  T ,  A  , 'LOCAL LITERAL*  5; 

MENOt.XOf 

END; 

THE  FOLLOW I  NO  CAUSES  . YOF .  TC  BE  DEFINED  AS  A  PASS  ONE  OPERATOR 

•  VUF .  A  HAS  THE  SAME  EFFECT  AS  AC6) 

•DECLARE  SYNTACTIC  CLASS*  .YCF.  'SAME  AS*  ,ABS.{ 

•DEFINE* ; 

MACRO, .YOF. ,T,AJ 

•TAD. i T , A , • LUCALLI TERAL'  65 

ME NO,. YOF. ; 

END; 

THE  FOLLOWING  DEFINES  .NEXT.  A  TU  BE  T hb  SAME  AS  A(2) 

•DECLARE  SYNTACTIC  CLASS*  .NEXT.  'SAME  AS'  .ABS.J 
•DEFINE* ; 

MACRU, .NEXT.,  T,  A; 

•  T  AD. ,T , A , • LUCALL I TERAL  *  2; 

MEND, .NEXT. ; 

END; 

THE  FULLUNING  DEFINES  .DISPN.  A  ID  BE  THE  SAME  AS  A  C  3  > 

•DECLARE  SYNTACTIC  CLASS*  .DISPN.  'SAME  AS'  .ABS.{ 

•DEFINE* ; 

MACRO, .01SPN.,T,Ai 

•  TAG. ,T,A,' LUC ALLI TERAL*  3{ 

MEND, .DISPN.; 

end; 

•DECLARE  SYNTACTIC  CLASS*  .ENCA.  'SAME  AS*  .ABS.J 
•DEFINE* ; 

MACRO, .ENC A . , T , A  ; 

.TAG. ,T,A, 'LUCALLITERAL*  5; 

MEND, . ENCA., 

END; 

THE  FULLOmING  DEFINES  .ENDS.  A  TU  BE  THE  SAME  AS  A(6> 

•DECLARE  SYNTACTIC  CLASS*  .ENCB.  'SAME  AS*  .ABS.J 

•DEFINE*  J 

MACRO, .ENDB..T ,A; 

.TAG. ,T, A, 'LUCALLITERAL*  6; 

MEND, .ENDti. ; 

END; 

The  FOLLOWING  DEFINES  .HEAD.  A  TU  BE  THE  SAME  AS  All) 

•DECLARE  SYNTACTIC  CLASS'  .FEAD.  'SAME  AS*  .ADS.; 

•DEFINE* ; 

MACRO, .HE AO. ,T, A; 
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*0410 

*0411 

*0412 

*0413 

*0414 

*0415 

*0416 

*0417 

*0418 

*0419 

*0420 

♦0421 

*0422 

*0423 

*0424 

*0425 

*0426 

*0427 

*0428 

*0429 

*0430 

*0431 

*0432 

*0433 

*0434 

*0435 

*0436 

*0437 

*0438 

*0439 

*0440 

*0441 

*0442 

*0443 

*0444 

*0445 

*0446 

*0447 

*0448 

*0449 

*0450 

*0451 

*0452 

*0453 

*0454 

*0455 

*0456 

*0457 

*0458 

*0459 

*0460 

*0461 

*0462 

*0463 

*0464 

*0465 

*0466 

*0467 

*0468 

*0469 


.TAG.  ,T,A,  'LOCALLITERAL'  li 
MEND, .HEAD.; 

end; 

« 

THE  FOLLOWING  DEFINES  .ADROF.  A  TO  BE  THE  SANE  AS  THE  SEQOENCE  OF 
STATEMENTS 


QQSV  .EVAL.  HEAD 

Bl: 

•  IF*  .DISPN.  QQSV  = 

A,  *G0 

QQSV  .EVAL.  (.HEAD. 

QQSV) 

•GO  TO*  Bl 

B2 : 

•RETURN*  .PT.  QQSV 

» 

•DECLARE  SYNTACTIC  CLASS*  .ADROF.  'SAME  AS*  .ABS.; 
•DEFINE* ; 

MACRO, .ADROF. ,T, A; 

LOCAL, B1,B2; 

LOCAL, T1»T2,T3,T4»T5; 

TEMPORARY ,T1,T2«T3«T4,  T5  i 
FLAD, 61,82; 

•EVAL.,T1, 4QQS V, XHEAD ; 

DES,81; 

•DI SPN. , T2 , XUQSV ; 

LN=,T3,T2,A; 

TNZ ,B2 , T3 ; 

.HEAD. , T4,4QQSV; 

.EVAL . ,T5 , IUUSV,T4; 

GOTO, 61; 

DES,B2 ; 

.  PT.  ,  T  ,  9CQQSV ; 

MEND, . ADROF. ; 

END; 

« 

END  OF  DEFINITIONAL  PACKAGE 

» 


•DECLARE*  • NORMAL  MOCE*  • INTECER* ; 

•DECLARE*  COMMAND  • CHARACT ER* (4 1 ; 

•DECLARE*  DISPLAY  'FIXED  ARRAY* (50, 50 »  'CHARACTER* ( 1) ; 
•DECLARE*  (POINT, Pi, P2,P3I  'POINT*; 

•DECLARE*  LINE  'LINE*; 

•DECLARE*  PICTURE  'FIXED  ARRAVMiOO)  'PICTURE*; 
•DECLARE*  001  'POINTER'; 

•DECLARE*  CQ2  *  PCINTER* ; 

•DECLARE*  (M, Ml, M2  I  'FLOATING'; 

•PRESET'  PICTUREN  :«  0; 


SKETCH;  'WRITE*  ,  "'OENTEK  A  COMMAND  PLEASE.**"; 

•READ*  ,  "C4.4*"  ,  COMMAND; 

•  IF*  COMMAND  *  "POIN"; 

•WRITE*  •  "•  ENTER  X  AND  Y  COORDINATES:  •*"; 

•READ*  ,  "21*",  X,Y; 

•IF'  1  X  6  5C  >»  X  6  l  <»  Y  £  5C  >*  Y; 

•CREATE  POINT*  POINT, X,Y; 

•WRITE'  ,  »•  ASSIGNED  DISPLAY  NUMBER* ,HI4*",  .DISPN.  POINT 
•  EL  SE  •  ; 

•WRITE*  ,  "•  POINT  IS  OUTSIDE  RASTER  RANGE.**"; 

•END*  ; 
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*0470 

*0471 

*0472 

*0473 

*0474 

*0475 

*0476 

*0477 

*0478 

*0479 

*0480 

•0481 

*0482 

*0483 

*0484 

•0485 

•0486 

•0487 

*0488 

*0489 

*0490 

*0491 

•0492 

•0493 

•0494 

*0495 

*0496 

*0497 

*0498 

*0499 

*0500 

*0501 

•0502 

*0503 

•0504 

•0505 

*0506 

•  0507 

*0508 

*0509 

*0510 

♦0511 

*0512 

*0513 

*0514 

*0515 

*0516 

*0517 

*0518 

*0519 

*0520 

*0521 

*0522 

*0523 

*0524 

*0525 

*0526 

*0527 

*0528 

*0529 


•OR  IF*  COMMAND  «  "LINE"; 

•WRITE*  ,  "•  ENTER  DISPLAY  NUMBERS  FOR  END-POINTS:**"; 

•READ*  ,  "21*".  X»Y; 

PI  .EVAL.  .ADROF.  X;  P2  .EVAL.  .ADROF.  Y; 

•IF*  .POINT.  PI  &  .POINT.  P2; 

•CREATE  LINE*  LINE, PI, P2; 

•ELSE*  ; 

NOTPOINT:  'WRITE*  ,  "•  THOSE  ARE  NOT  POINTS.**"; 

•END* ; 

•OK  IF*  CCMMANO  »  "PICT"; 

•WRITE*  ,  "•  ENTER  DISPLAY  NUMBERS  FOR  ALL  POINTS.**"; 
PICTUREN  PICTUREN+1; 

•IF*  PICTUREN  >  100; 

•WRITE*  ,  "•  TOC  MANY  PICTURES.**"; 

•ELSE*; 

P IC TURE ( P I CTUREN )  :»  0  .AS.  ( • POINTER* I ; 

PICTA:  'READ*  ,  "I*",  X; 

•IF*  X— ■  0; 

PI  .EVAL.  .ACROF.  X; 

•IF*  -.POINT.  Pi,  *G0  TO*  NOTPOINT; 

QQ2  :«  PICTURE! PICTUREN) i 
•CONNECT*  PI  • TO •  QQ2; 

PICTURE (PICTUREN)  :«  002; 

•GO  TO*  PICTA; 

•END* 

•END*  J 

•OR  IF*  CCMMANO  ■  "MOVE"; 

•WRITE*  ,  "•  ENTER  DISPLAY  NUMBER  OF  POINT  AND  NEW  X,Y**"; 
•READ*  ,  "31*",  DIS, X,Y ; 

PI  .EVAL.  .ADROF.  DIS; 

•IF*  -.POINT.  PI,  *GCTC*  NOTPOINT; 

OX  :=  X-.XOF.  Pi;  DV  :■  Y-.YOF.  Pi; 

( .XGF.  PI)  :«  •  XOF.  Pi*OX;  I.YOF.  Pi)  :»  .  YOF.  Pl+DY; 

QQ1  :»  Pi (2 ); 

•IF*  QQ1  .AS.  ('INTEGER')  •—  0; 

P2  .EVAL.  .NEXT.  Pi; 

MOVEA:  *IF*  .DISFN.  Pi  -■  .DISPN.  P2; 

(.XOF.  P2)  :*  .XOF.  P2*DX;  (.YOF.  P2)  5-  .YOF.  P2 

♦DY; 

P2  .EVAL.  .NEXT.  P2; 

•GO  TO*  MOVEA; 

•END* 

•END* ; 

•OR  IF*  COMMAND  ■  "DISP"; 

•IF*  hEAO  .AS.  ('INTEGER*)  «  0; 

•WRITE*  ,  "•  NOTHING  TO  DISPLAY.**"; 

•GO  TO*  SKETCH; 

•ENO* ; 

•FOR*  I  :■  i, 1 ,  I>50 ,  *FOR*  J  :■  1,1,J>50,  OISPLAY(I,J)  :«  "  "; 
PI  .EVAL.  HEAD; 

PISPA:  ; 

•IF*  .POINT.  Pi; 

Q1  :*  .XOF.  Pi;  02  :»  .YOF.  Pi;  0ISPLAY(Q2,Q1)  s*  "*"; 
•ELSE*; 

LINE  .EVAL.  (.PT.  Pi); 

001  :«  .ENDA.  LINE;  P2  .EVAL.  Qfll; 
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****■»»*.«**.<,  , 


*053  r 

cm  :*  .ENOfl.  LINE;  P3  .EVAL. 

*0531 

XI  :=  MIN. (.XOF.  P2».XUF.  P3); 

*0532 

X2  :=  MAX. (.XOF.  P2..XUF.  P3 » ; 

*0533 

•IF*  XI  =  X2*. 

*0  534 

Y 1  :*  MIN. I  .YGF.  P2i.Y0F. 

*0535 

Y2  :*  MAX. (  . YCF .  P2..YUF. 

*0536 

•FOR*  Y  :*  Yl,l,  Y  >  Y2,  1 

*0537 

•ELSE' J 

*0  538 

Ml  :*  .YOF •  F3  -  .YOF •  P 2 

*0  539 

M2  :*  . XUF.  P3  -  .XOF.  P2 

*0540 

M  :=  M1/M25 

*0  541 

•FOR*  X  :»  X1,1,X  >  X2; 

*0  542 

Q2  ?*  MMX  -  .XOF.  P 

*0543 

DI SPLAY ( Q2, X)  :*  »*« 

*0544 

•END* ; 

*0545 

•END' ; 

*0546 

•END*  ; 

*0547 

GUI  :=  .HEAD.  PI; 

*0548 

•IF*  gui  .AS.  ('INTEGER*)  -=  0; 

*0549 

PI  .EVAL.  .FEAD.  PI; 

*0550 

•GO  TO'  DI SPA; 

*0551 

•END' ; 

*0552 

•WRITE*  ,  "*1  .'.IOC  .*)*■•; 

*0553 

•FOR*  I  :=  50,-1.  1  <  1, 

*0554 

•hRITE*  ,  "13, 52C1 . 1*" ,  I," 

*0555 

DISPLAY! I, 

*0556 

•WRITE*  ,  "•  .S10(*  .')*"; 

*0557 

* 

*0558 

•ELSE* ; 

*0559 

•WRITE*  ,  "•  ILLEGAL  CCMMAND'*"; 

*0  560 

•END* ; 

*0561 

*0562 

•GC  TO*  SKETCH; 

*056  3 

*0564 

•PROCEDURE*  MIN.(X,V); 

*0565 

•INTEGER  SFGRT '  (X,Y); 

*0566  MIN! 

•  IF*  X  <=  Y,  • RETURN'  X; 

*0567 

•RETURN*  Y; 

*0568 

•END* ; 

*0569 

*0  570 

•PROCEDURE '  MAX.iA.B); 

*0571 

' INTEGER  SFUKT '  ( A , B )  ; 

*0572  MAX: 

•IF*  A  >=  8,  'RETURN*  A; 

*0573 

•RETURN'  B; 

*0574 

•END’ ; 

*0575 

*0576 

•END* 

II*  N; 


♦  •  YOF.  P2; 
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T CR  AGE  ALLOCAT ICN 


OCOOOO 

Of  C470  OOOOOOOl 
000474  00000001 
G(C478  00000064 
000480  00000002 
000484  00000001 
000488  00000032 
00C4BC  00000001 
0CC490  0n000032 
0(0 OBO  00000000 
0C00B4  00000000 

orcoB4  oooooooo 
0P029C  7040C9D303C5C7C1 
0002AF  70404040404B7U6B 
P0C2C3  4B 

0CC2C4  C9F36BF  5F2C3F148 
0C02C t  70F 1404040487068 
0C02E2  5C 
0C02E3  40 

0C02E4  7040U5D6E3C8C905 
0002FB  C4C9E2D7 
OOC2FF  F3C95C 
000302  7040C505E3C5D94C 
00032F  D406E5C5 
00C333  C95C 

000335  7040E 30606400401 
0C034C  00000064 
0C0350  7040C 50 5E3C 50940 
000379  U7C9C3E3 
0CC370  7040E 3C 806E2C540 
Of  0396  7040C505E3C5D940 
0CC3BF  U3C9U5C5 
000 3C3  7040D7C6C905E340 
0P03E5  7 0400 1E2E2C9C 705 
0CC404  00000032 
0CC4C8  F2C95C 
00040B  7040C505E3C5U94C 
000429  0 7060 905 
000420  C3F448F45C 
000432  70F0C5D5E3C 5094 C 
00C450  00000006 
00C454  00000005 
O0C458  00000004 
000450  00000303 
0CC460  OOOOOOOO 
000464  00000002 
000468  OOOOOOOl 


MASK  ETCH  CSECT 

►  CONST 
CONST 

►  CONST 
CCNST 

-  CCNST 

►  CONST 
CCNST 
CCNST 

►  CCNST 

-  CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CONST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 
CONST 
CCNST 
CONST 
CONST 
CCNST 
CCNST 
CCNST 
CCNST 
CCNST 


1 

1 

100 

2 

1 

50 

1 

50 

0 

0 

C 

"•  ILLEGAL  COMMAND**" 

"*  .*il0(*  .*>*" 

Na  N 

"I 3*52C1 .1 *" 

"*1  .*,10(*  .*»*" 

M*M 
M  N 

"•  NOTHING  TO  0 1  SPLAY •  •  *" 

"D  ISP" 

"31*" 

"•  ENTER  DISPLAY  NUMBER  UF  WUINT  AND  NEW  X.V'* 
"MOVE" 

"•  TOO  MANY  PICTURES.**" 

100 

"•  ENTER  DISPLAY  NUMBERS  FUR  ALL  POINTS.**" 
"PICT" 

"•  THOSE  ARE  NOT  POINTS.**" 

"•  ENTER  DISPLAY  NUMBERS  FOR  END-POI NT S : • *" 
"LINE" 

"•  POINT  IS  OUTSIDE  RASTER  RANGE. •*“ 

"•  ASSIGNED  DISPLAY  NUMBER* ,HI4*« 

50 

"21*" 

"*  ENTER  X  AND  Y  COORDINATES:**" 

"POIN" 

"C4.4*" 

"•CENTER  A  COMMAND  PLEASE.'*" 

6 

5 

4 

3 

0 

2 

1 


STORAGE  MAP 


00 

03 

002  3 

000003CO 

y 

00 

03 

C02C 

00000  300 

X 

00 

03 

00  30 

3CC030C0 

3 

00 

03 

0034 

ooooooco 

A 

00 

07 

0010 

ooooooco 

P  3 

00 

07 

0014 

00000000 

P2 

00 

07 

0013 

oooocooo 

Pi 

00 

C7 

001C 

OOCQCOOO 

LINE 

00 

07 

0020 

00000000 

POINT 

00 

C7 

0024 

ooooooco 

OuSV 

01 

01 

000^ 

00<'0“r,00 

Y2 

01 

01 

oooo 

00000004 

Vi 

UJ 

mj 

01 

01 

000  J 

OOOO  30C8 

MAX 

01 

01 

0000 

''OOOOOIO 

X2 

00 

01 

01 

0000 

300000 14 

MIN 

o 

01 

01 

oooo 

000  300 1C 

XI 

=D 

01 

01 

oooo 

C0O0CD2O 

02 

o 

o 

01 

01 

oooo 

30000024 

01 

oc 

01 

01 

oooo 

3C000028 

01  SPA 

a. 

UJ 

oe 

01 

01 

oooo 

OOO0C03O 

J 

01 

01 

oooo 

00030034 

I 

01 

Cl 

oooo 

00000338 

MuVEA 

o 

01 

01 

oooo 

3C000040 

JV 

z 

01 

01 

oooo 

'"'000C344 

13  X 

01 

01 

oooo 

00000048 

J1S 

01 

01 

OOOO 

3000304C 

PICTA 

01 

01 

oooo 

00000054 

NUTPOINT 

01 

Cl 

oooc 

OOOO.G05C 

1  UP 

01 

Cl 

oooo 

00000044 

1  AjJKE  AD 

01 

01 

oooo 

0000006C 

EN13IUP 

01 

01 

oooo 

00000074 

FORMAT 

01 

01 

oooo 

OCr0007C 

MAUKKl It 

01 

01 

000  0 

3 OOOC 084 

P  ICTURtN 

01 

01 

oooo 

COOOOC38 

M2 

01 

01 

oooo 

-'0C3C08C 

Ml 

01 

01 

oooo 

300QC090 

■1 

01 

Cl 

oooo 

0C003CS4 

w02 

01 

01 

000  ^ 

30033098 

COMMAND 

01 

01 

ooco 

0030309C 

<Jwl 

01 

01 

oooo 

3COCOOAC 

•ENDSTArtMENT* 

01 

01 

coco 

OOOQf  DA4 

V 

01 

01 

oooo 

300000A8 

X 

01 

01 

oooo 

000  3 3 3  AC 

• SAMEAS* 

01 

01 

OOCO 

00033080 

HEAD 

01 

01 

ooco 

C 000 O' 34 

OISPLAYN 

01 

Cl 

OOOO 

ooooo^ae 

SKETCH 

01 

01 

oooo 

CQ00029C 

“•  ILLEGAL  CUMMAND*  *" 

01 

01 

oooo 

■'00002  AT 

•••  .*,101' 

01 

01 

oooo 

■'OOOC2C3 

01 

01 

oooo 

■'00302C4 

M13,52tl. 1*" 

01 

01 

0C03 

000-3  02C  6 

"•l  .‘.I'M*  .*)*" 

01 

01 

oooo 

000  30  2E  2 

u,  « 

01 

01 

000  0 

700002E  3 

It  l« 

01 

01 

oooo 

030002E4 

"•  NOTHING  TO  DISPLAY. • *" 

01 

Cl 

oooo 

' 000^21 3 

"01 SP" 

01 

01 

OOOO 

OOOOC2r F 

"j[«« 

01 

Cl 

000  3 

r 0300302 

ENTER  DISPLAY  NUMHEk  OF 

,  Y'*" 
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*1  01  COCO  1000032F  "MOVE" 

01  01  OOO'I  OHOC333  "1*" 

01  01  0000  100003  35  TLL  MAMV  PI  CTURES.  •  *" 

01  01  0000  r,001034C  1*0 

01  01  0000  10000350  "»  ENTER  DISPLAY  NUMBERS  FOR  ALL  POINTS. 

01  *1  0000  10000  3 79  "P1C1" 

01  01  0000  00000370  •"  IHtSfc  ARE  NUT  POINTS.'*" 

01  01  0000  10000396  "•  ENTER  DISPLAY  NUMBERS  PUR  END-PU INT S : • *" 

01  01  0000  000003BF  "LINE" 

01  01  0000  000003C3  "•  POINT  IS  OUTSIDE  RASTER  RANGE.'*" 

01  01  COOO  0000C3E5  "•  ASSIGNED  DISPLAY  NUMBER • • HI4*" 

Cl  Cl  0000  000004C4  5C 
01  Cl  COOO  0000G4C8  "21*" 

01  Cl  0000  10000408  "•  ENTER  X  AND  Y  COORDINATES: • *" 

01  01  0001  00000429  "PU1N" 

01  01  0000  00000420  "C4.4*" 

01  01  0000  00000432  "'CENTER  A  COMMAND  PLEASE.'*" 

01  01  0000  00000450  6 
01  01  0000  00C0C454  5 
01  01  0000  00000458  4 
01  01  0000  1000C45C  3 
01  01  0000  00000460  0 
01  01  0000  00000464  2 
01  01  0000  00000468  1 
01  01  0000  00000470  SDIMC002 
01  01  0003  00000460  tUIMCOOl 
01  0-  0000  00000498  PICTURE 
01  01  0000  00000628  DISPLAY 
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DICTIONARY 


XUIMOOOl  •FIXtUAKRAY*  C101003C  00CC0480 
CCMP.SUE*4 
CUMPGNE NT  *  'INTEGER* 

(DIM0002  *F  IXEDARRAY'  CIOIOOOC  000C0470 
ccmp.s:ze*4 
COMPONENT*  'INTEGER* 

•ENOSTATEMENT*  'INTEGER*  CIOIOCOO  COOOOOAC 
•SAMEAS'  'INTEGER*  OICICOCO  OOOOOOAC 
A  • INTEGERSHOKT *  00030034  OOOCOOOO  IFuRMAL  PARI 

e  '  I NTEGE  RSHORT •  000  30030  30000000  (FORMAL  PARI 

COMMAND  'CHARACTER'  CiflOOOO  CC00CC98 
LENGTH=4 

OIS  'INI  EGER'  01010000  C0000048 
DISPA  'ENIRYNAME'  01CI0CCC  OOOCOC28 
RESULT®  'INTEGER' 

DISPLAY  *F I XEOARR AY'  CIOICOOO  C0000628 
CGMP . S 1 ZE* 1  DIM.VEC.»*DIM0001 
COMPONENT®  'CHARACTER* 

LENGTH*  L 

DISPLAYN  • INTEGERSHURT'  C1010CC0  CC0000B4 
DX  'INTEGER'  01010000  00000044 
DY  'INTEGER'  0101000C  OCCC0040 

ENDIGP  'ENTRYNAME'  01010000  000O0C6C  'EXTERNAL* 
RESULT®  'INTEGER' 

FORMAT  'ENTRYNAME*  01CJ  OCO  CCC00074  'EXTERNAL' 
RESULT®  'INTEGER' 

HEAD  'POINTER*  C101C0  COOOOOBO 
I  'INTEGER*  01010000  ^0000034 
IOP  'ENTRYNAME*  0101000C  COO0005C  'EXTERNAL* 

RESULT*  'INTEGER' 

J  'INTEGER'  01010000  CCCC0030 
LINE  'CUMPONENTSTRUCTURE*  0007PG1C  COO^DOOC  'BASED* 
S I  ZE*20 

COMPONENT*  ' POINTER* 

COMPONENT*  'POINTER' 

COMPONENT®  'INTEGERSHORT* 

COMPONENT*  'INTEGERSHORT* 

COMPONENT*  'POINTER* 

COMPONENT*  'POINTER' 

M  'FLOATING'  01C1000C  OfffOT 90 

MACREAD  'ENTRYNAME'  OIGICCOL  0CC0C064  'EXTERNAL' 
RESULT*  'INTEGER' 

MADWPITE  'ENTRYNAME'  OlCirOC?  C00C?07C  'EXTERNAL' 
RESULT®  'INTEGER' 

MAX  'ENTRYNAME'  OlOl'TOO  C0000008 
RESULT®  'INTEGER* 

MIN  'ENTRYNAME'  ClOlOCfC  COOOOC14 
RESULT*  • INTEGER' 

MOVEA  'ENTRYNAME'  OlCICrCO  OOOCOC38 
RESULT*  • INTEGER' 

Ml  'FLOATING'  0101000?  OC000C8C 
M2  'FLOATING'  01C1C0CC  CCCOOC88 
NQTPOI  NT  'ENTRYNAME'  01C10000  C0'>trCS4 
RESULT®  'INTEGER' 

PICTA  'ENTRYNAME'  OIOIOOCO  C00C0C4C 
RESULT*  'INTEGER' 

PICTURE  'FIXtDARRAY'  OICICOOC  C00CC493 
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CGMP. SIZE-4  C I M. VEC . =IDIM0002 
COMPONENT*  'POINTER' 

PICTUREN  'INTEGER*  OICIOCOO  OOOOOCB4 
POINT  ' COMPONEN TS TRUCTUR E *  00070C2C  OOOCOCOO  ' BASED* 

SIZE-16 

COMPONENT*  • POINTER' 

COMPONENT*  'POINTER' 

COMPONENT*  • IATEGERSHORT  ' 

COMPONENT*  'INTEGERSHORT' 

COMPONENT*  'INTEGERSHORT* 

COMPONENT*  'INTEGERSHORT* 

PI  'CCMPONENTSTRUC TURE*  OC07OO1B  CCOCOOOC  'BASED' 
SIZE-16  ' 

COMPONENT*  'PCINTEK' 

COMPONENT*  'POINTER' 

COMPONENT-  'INTEGERSHORT' 

COMPONENT-  'INTEGERSHORT' 

COMPONENT-  'INTEGERSHORT' 

COMPONENT*  'INTEGERSHORT* 

P2  'COMPUNENTSTRUCTURE*  00070014  00000000  'BASED' 
SIZE-16 

COMPONENT-  'POINTER* 

COMPONENT-  'POINTER' 

COMPONENT*  'INTEGERSHORT' 

COMPONENT*  'INTEGERSHORT' 

COMPONENT*  'INTEGERSHORT' 

COMPONENT*  'INTEGERSHORT* 

P 3  'COMPUNENTSTRUCTURE'  00070010  COCCOOOO  'BASEO* 
SIZE-16 

COMPONENT*  'POINTER' 

COMPONENT*  'POINTER* 

COMPONENT*  'INTEGERSHORT* 

COMPONENT*  'INTEGERSHORT* 

COMPONENT*  'INTEGERSHORT* 

COMPONENT*  'INTEGERSHORT* 

QQSV  'COMPONENTSTRUCTURE*  000 70024  00000000  'BASED* 
SIZE-16 

COMPONENT*  'POINTER' 

COMPONENT  =  • POINTER' 

COMPONENT*  'INTEGERSHORT* 

COMPONENT*  'INTEGERSHORT' 

COMPONENT*  • INTEGERSHURT* 

COMPONENT*  'INTEGERSHORT* 

QU1  'POINTER'  OICIOCOO  CC00009C 
Q«2  'POINTER'  OIOIOOCO  f CC00094 
Q 1  'INTEGER*  0101000C  CCC00C24 
02  'INTEGER*  .  01010000  00CC0020 

SKETCH  'ENTRYNAME'  OIOICOCO  OCOOOOBtt  'ACCESSIBLE' 
RESULT*  • INTEGER' 

X  'INTEGER*  OICICCOO  COCOOOA8 

X  'INTEGERSHORT'  00030C2C  OOOOOOOC  (FORMAL  PAR) 

XI  'INTEGER*  OICIOHOO  CC0«0CIC 
X2  'INTEGER*  01C1000C  CCCCOOIO 

Y  'INTEGER*  0101C000  C0C0C0A4 

Y  'INTEGERSHORT*  0C03C028  OOCCCOOO  (FORMAL  PAR) 

Y 1  'INTEGER*  01C1C00C  C0000004 

Y2  'INTEGER*  01C10JCC  CCCCOOO? 

••  "  'CHARACTER*  C1010CCC  C00002E3 
LENGTH-1 

'CHARACTER*  C1C1C0CC  COOOC2C3 
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NOT  REPRODUCIBLE 


L  E  NG  T  H  *  1  " 

«*••  'CHARACTER'  C101OOC0  CO0002E2 

LENGTH*!  ' 

"•  .*,101*  .*)*"  'CHARACTER*  01010000  OOOOC2AF 

LENGTH*  2'“ 

"•  ASSIGNED  DISPLAY  NUMBER •«  H 14*"  'CHARACTER V  OICIOOOC  C00T03E5 
LENGTH*3i 

•••  ENTER  DISPLAY  NUMBER  CF  POINT  ANC  NEW  X,Y'*"  'CHARACTER'  OIOIOOCO  00000302 
LENGTH^4B 

"•  ENTER  DISPLAY  NUMBERS  FCR  ALL  PCINTS.'*"  'CHARACTER'  OICIOOOO  00000350 
LENGTH=41 

"•  ENTER  DISPLAY  NUMBERS  FCR  ENC-PC INT S: • *"  'CHARACTER'  01C10CCO  00000396 
LENGTH=41 

"•  ENTER  X  ANO  ,Y  COORDINATES:  •*"  'CHARACTER '  01C1000C  CPOCf 4Cfl 

LENGTH*30 

«•  ILLEGAL  COMMAND'**'  'CHARACTER'  C1C10CCC  OOC0029C 
LENGTH*19 

"•  NOTHING  TO  DISPLAY.'*"  'CHARACTER'  OICIOOOO  000002F4 
LENGTH*23 

"•  POINT  IS  UUTSIOE  RASTER  RANGE.'*"  'CHARACTER'  OIOIOOCO  09000303 
LENGTH* 14 

"•  THOSE  ARE  NOT  POINTS.'*"  • CHAR AC IcR*  OIOIOOCO  roOOf37D 
LENGTH*25 

"•  TCC  MANY  PICTURES.'*"  'CHARACTER*  01C10CGC  00000335 
LENGTH*  2  2 

"•"ENTER  A  COMMAND  PLEASt.'*"  'CHARACTER*  CIOIOCOO  00000432 
L  ENGT  H  =  2  7 

*"I  .'.IOC  .')*"  'CHARACTER'  01010CCC  CC00C2CE 
LENGTH=20 

"C4.4*"  'CHARACTER*  OIOICCOO  0000042D 
LENGT  H  =  f> 

"OISP"  'CHARACTER'  OICIOOOO  C00002FB 
L  ENGT H=4 

"I*"  'CHARACTER*  OlOIOOCC  OGOOC333 
LENGTH*2 

"I  3t  52C1. 1*"  'CHARACTER'  01010000  C00002C4 
LENGTH=1 0 

"LINE"  'CHARACTER*  OICIOCOO  CCC0038F 
LENGTH=4 

"MCVE"  'CHARACTER*  C1C1CCC0  0QC0032F 
LENGTH* 4 

"PICT"  'CHARACTER'  01010CC0  C0C00379 
LENGTH=4 

"POIN"  'CHARACTER'  01010CC0  00000429 
LENGTH=4 

"21*"  'CHARACTER*  01010CCC  000004Ce 
LENGTH* 3 

"31*"  'CHARACTER'  OlOKOCC  000002FF 
L  E  NG  T  H  *  3 

0  'INTEGER*  OIOIOOOD  CC000460 

1  'INTEGER'  OICIOOOO  CCC0046b  , 

10"  'INTEGER'  01C1900C  C00003«*C 

2  'INTEGER*  OICIOOOO  CC0C0464 

3  'INTEGER'  CIOICOOO  0C00046C 

4  'INTEGER'  OICIOOOO  C0CCC458 

5  'INTEGER'  01010009  C0000454 

5C  'INTEGER*  01C1CD0C  CCC0"4C4 

6  'INTFGtK'  OIOIOOOD  DCC00450 

■  | 
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N0T  R^«oUciblc 


EXTERNAL  SYMBGL  DICTIONARY  (  SYMBOL, TYPE,  I  C*ACCR,  LENGIH/LUIO) 

A# SKETCH  PD  01  OCOOOO  CO  12 AC 

ASKETCH  SO  02  OOOCOO  0C166A 

MACSTACK  ER  03 

SKETCH  LO  CCOOOO  100002 

MACARITE  ER  04 

FORMAT  ER  05 

ENCIOP  EK  06 

MACKE AO  ER  07 

IOP  ER  OH 

GETSPACE  ER  09 

LINSUB  ER  OA 
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KMMWMCiti* 


*E producible 


RtLOC ATIUN  JICTIGNARY  IP. 10, R. 10, FLAGS, ACCRESS » 


I 


01 

C2 

oc 

000068 

01 

04 

1C 

00007C 

01 

C5 

1C 

000074 

01 

01 

oc 

000294 

01 

06 

1C 

00006C 

01 

07 

1C 

000064 

01 

01 

oc 

000288 

01 

C8 

1C 

00005C 

01 

Cl 

oc 

0002 7C 

01 

Cl 

oc 

000270 

01 

Cl 

oc 

000264 

01 

Cl 

oc 

0002S8 

01 

Cl 

oc 

OOP24C 

01 

C9 

1C 

001060 

01 

Cl 

oc 

000240 

01 

Cl 

oc 

000228 

01 

Cl 

oc 

00C21C 

01 

Cl 

oc 

000210 

01 

Cl 

oc 

000204 

01 

Cl 

oc 

00C1F8 

01 

C  2 

oc 

0000 54 

01 

Cl 

oc 

0001  EC 

01 

Cl 

oc 

0001E0 

01 

Cl 

oc 

000104 

0-1 

CA 

1C 

0010A4 

01 

Cl 

oc 

001094 

01 

01 

oc 

001098 

01 

C2 

oc 

00004C 

01 

Cl 

oc 

00C1C8 

01 

01 

oc 

00016C 

01 

Cl 

oc 

001088 

01 

Cl 

oc 

00108C 

01 

Cl 

oc 

001004 

01 

Cl 

oc 

001006 

01 

Cl 

oc 

000 160 

01 

Cl 

oc 

0001A4 

01 

Cl 

oc 

000198 

01 

Cl 

oc 

000 18C 

01 

Cl 

oc 

000  UO 

01 

C  2 

oc 

000038 

01 

Cl 

oc 

000174 

01 

Cl 

oc 

OOUOC 

01 

Cl 

oc 

001110 

01 

Cl 

oc 

001114 

01 

C2 

oc 

000028 

01 

Cl 

oc 

001130 

01 

Cl 

oc 

001134 

01 

Cl 

oc 

001138 

01 

Cl 

oc 

00U6C 

01 

01 

oc 

001164 

01 

Cl 

oc 

001168 

01 

Cl 

oc 

00119C 

91 

Cl 

oc 

0011A0 

01 

Cl 

OC 

0011A4 

01 

Cl 

oc 

000116 

01 

Cl 

oc 

C001CC 

01 

Cl 

oc 

C0C100 

01 

Cl 

1C 

00C0F4 
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RtpROOUC»BU 


HOI 


01 

Cl 

oc 

OOPOEA 

01 

Cl 

oc 

00118C 

01 

Cl 

oc 

oouco 

01 

Cl 

oc 

C011C4 

01 

Cl 

oc 

001108 

01 

Cl 

oc 

0011DC 

01 

Cl 

oc 

0011EC 

01 

Cl 

oc 

OOPOOC 

01 

Cl 

oc 

000PC4 

01 

C2 

oc 

0007114 

01 

C2 

oc 

OOf  1C8 

02 

Cl 

oc 

001648 

02 

Cl 

oc 

coi5e4 

02 

Cl 

oc 

000020 

01 

Cl 

oc 

0011F0 

01 

Cl 

oc 

0011F4 

01 

C2 

oc 

0011F8 

01 

C3 

U 

0011FC 

01 

C4 

oc 

001228 

01 

C5 

oc 

00122C 

01 

(6 

oc 

001230 

01 

C7 

oc 

001234 

01 

(8 

•oc 

001238 

01 

Cl 

oc 

00123C 

01 

CV 

oc 

001240 

01 

CA 

oc 

001244 

01 

C2 

oc 

001248 

02  COCOOO  END  SKETCH 


HAD/ I  COMPILER  TIMINGS: 
EXECUTION  TERMINATED 


171.625  CPU  SECCKOS. 
326. C63  ELAPSED  SECONDS 
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Appendix  F 


Run  of  the  MAD/Z  Program 


»StT  ERRUKOUMP-UN 

SR  ON  SKETCHOBJ  HAP  SC  ARUS«-OAT  A 


ENTRY  «  IOCOOO  SIZE  *  00A6B3 


NAME 

VALUE 

T  RF 

NAPE 

VALUE 

T  RF 

NAME 

VALUE 

T  RF 

GETS PACE 

011610 

* 

FREESPAC 

0 1 1RA2 

* 

SYSTEM 

0167AA 

* 

ERROR 

0167CE 

* 

PGNTTRP 

018E8C 

* 

LOAD 

018EF2 

* 

GETFC 

0197E0 

* 

SCAROS 

019A80 

* 

SPRINT 

019A92 

A 

SPUNCH 

01 9 AAA 

* 

SERCOM 

019AB6 

* 

READ 

P19B3A 

* 

WRITE 

019BS0 

* 

LCSYMBOL 

01A5E8 

* 

GLAP 

1030C8 

0FFA60 

L1NSUB 

103BA8 

l03Li-.fi 

MADIO 

103C70 

1C3C70 

MADREAO 

1C3C7C 

MACWRITE 

103C9E 

FORMAT 

1C3CBA 

IOP 

1FJ0FC 

ENDIOP 

103EA2 

PPSKETCH 

10AP0C 

ICAOOO 

IOPKG 

10P250 

108250 

ROPEN 

IOB31E 

RCLOSE 

100358 

POPEN 

1083CA 

PC LOSE 

1 OBAIO 

MDIOPSCT 

10ED50 

10B9E8 

SPIE 

10BDE8 

108UEB 

0SKETCH 

IOCOOO 

IOCOOO 

IUH360 

111000 

11100C 

10HIN 

1110F0 

iuhout 

1 1 1 1 1A 

ICHETC 

1U83C 

ONEiATIM 

11192C 

10HERP 

115000 

1 101-  lb 

MADS i AC K 

11 7000 

117000 

EXECUTION  BEGINS 

ENTER  A  COMMAND  PLEASE. 
NOTHING  TO  DISPLAY. 

ENTER  A  COMMAND  PLEASE. 
ENTER  X  AND  Y  COORDINATES: 
ASSIGNED  DISPLAY  NUMBER  1 

ENTER  A  COMMAND  PLEASE. 
ENTER  X  AND  Y  COORDINATES: 
ASSIGNED  DISPLAY  NUMBER  2 

ENTER  A  COMMAND  PLEASC. 
ENTER  X  AND  Y  COORDINATES: 
ASSIGNED  DISPLAY  NUMBER  3 

ENTER  A  COMMAND  PLEASE. 
ENTER  X  AND  Y  COORDINATES: 
ASSIGNED  DISPLAY  NUMBER  A 

ENTER  A  COMMAND  PLEASE. 
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50  . 

49  . 

4b  . 

47  . 

46  . 

45  . 

44  . 

43  . 

42  . 

41  . 

40  .  *  * 

39  . 

38  . 

37  . 

36  . 

35  . 

34  . 

33  . 

32  . 

31  . 

30  . 

29  . 

28  . 

27  . 

26  . 

25  . 

24  . 

23  . 

22  . 

21  . 

20  . 

19  . 

18  . 

17  . 

16  . 

15  . 

14  . 

13  . 

12  . 

11  . 

10  .  •  • 
9  . 

8  . 

7  . 

6  . 

5  . 

4  . 

3  . 

2  . 

1  . 


fcNTER  A  COMMAND  PLEASE. 

ENTER  DISPLAY  NUMBERS  fOk  fcND-PCINT St 

ENTER  A  CJMNANO  PLEASE. 

ENTER  DISPLAY  NUMBERS  EUR  kND-PCINTSi 


t r~ 


ENTER  A  COMMAND  PLEASE 
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ENTER ‘DISPLAY  NUMBERS  FOR  ENU-PG1M1S* 

ENTER  A  CJMMAND  PLEASE. 

ENTER  01  SPLAY  NUMBERS  FUR  END-POINTS* 

ENTER  A  COMMAND  PLEASE. 


P-3 


k.'  . 


■ 


50  . 
49  . 
4b  . 
47  . 
46  . 
45  . 
44  . 
43  . 
42  . 
41  . 
40  . 
39  . 
38  . 
37  . 
36  . 
35  . 
34  . 
33  . 
32  . 
31  . 
30  . 
29  . 
28  . 
27  . 
26  . 
25  . 
24  . 
23  . 
22  . 
21  . 
20  . 
19  . 
18  . 
17  . 
16  . 
15  . 
14  . 
13  . 
12  . 
11  . 
10  . 
9  . 
8  . 
7  . 
6  . 
5  . 
4  . 
3  . 
2  . 
1  . 


ENTER  A  COMMAND  PLEASE. 

ENTER  01  SPLAY  NUMBER  CP  PCI.vT  AND  NEW  X«Y 
ENTER  A  COMMAND  PLEASE. 
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5C  . 
49  . 
48  . 
47  . 
46  . 
45  . 
44  . 
43  . 
42  . 
41  . 
40  . 
39  . 
38  . 
37  . 
36  . 
35  . 
34  . 
33  . 
32  . 
31  . 
30  . 
29  . 
28  . 
27  . 
26  . 
25  . 
24  . 
23  . 
22  . 
21  . 
20  . 
19  . 
18  . 
17  . 
16  . 
15  . 
14  . 
13  . 
12  . 
11  . 
10  . 
9  . 
8  . 
7  . 
6  . 
5  . 
4  . 
3  . 
2  . 
1  . 


* 


* 


* 

** 

*•* 

6* 

** 

*** 

*• 

*** 

** 

** 


ENTER  A  COMMAND  PLEASE. 

ENTER  OISPLAY  NUMBERS  FOR  ALL  POINTS. 

ENTER  A  COMMAND  PLEASE. 

ENTER  OISPLAY  NUMBER  GF  POINT  ANU  NEM  X, Y 
ENTER  A  COMMAND  PLEASE. 
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50  . 
49  . 
48  . 
47  . 
46  . 
45  . 
44  . 
43  . 
42  . 
41  . 
40  . 
39  . 
38  . 
37  . 
36  . 
35  . 
34  . 
33  . 
32  . 
31  . 
30  . 
29  . 
28  . 
27  . 
26  . 
25  . 
24  . 
23  . 
22  . 
21  . 
20  . 
19  . 
18  . 
17  . 
16  . 
15  . 
14  . 
13  . 
12  . 
11  . 
10  . 
9  . 
8  . 
7  . 
6  . 
5  . 
4  . 
3  . 
2  . 
1  . 


6 


* 


6 


' 


* 

** 

46* 

64 

4*6 

*6 

66* 

6* 

6*6 

6* 

*4 


ENTER  A  COMMANC  PLEASE. 


*44*  ALL  INPUT  OAT  A  HAS  bfcEN  PRUCESSEC  -  AT  LOCATION  1030E8 
EXECUTION  TERMINATED 
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